当Delphi遇上时间我就迷茫了，谁能帮帮我(10分)

J

jiang_sl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #1

我想用DELPHI做一个机械时钟，却不知怎么样获得当前的hour和当前的minute和second,我试过用gettime函数做不出来，我查过帮助文件却看不懂houroftheday,hourofthemonth,hourspan和gethour怎么用，谁能help me万分感激，谢谢

 

J

jiang_sl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #2

有没有人来帮我，我在线等待

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #3

procedure DecodeDate(Date: TDateTime
var Year, Month, Day: Word);//日期转换
procedure DecodeTime(Time: TDateTime
var Hour, Min, Sec, MSec: Word);//时间转换

 

V

vxhm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #4

ShowMessage(DateTimeToStr(Date+Time));

 

J

jiang_sl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #5

to oldsheep35
谢谢你的帮助，不过问题还没有解决，我想把hour,minute,second分别赋值给 i,j,k
而用上面的过程好像实现不了我的结果

 

N

Netsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #6

给你一个很无聊的：
有的时候并不是什么都要分解出来的呀~~~~~
YYYYVar:= StrToInt(FormatDateTime('YYYY', Date))
//MM DD也很行呀，
HHVar:= StrToInt(FormatDateTime('HH', Time))
//NN SS也可以的，
呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #7

Year, Month, Day: Word（****）
你定义的i，j，k是什么？
定义成Word类型不要是Int！

 

J

jiang_sl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #8

各位老兄，我还没做出，可不可以详细点，准确点，顺便问一句TDateTime怎么使用

 

S

simon707

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #9

procedure TForm1.Timer1Timer(Sender: TObject);
var
i,j,k,ss:Word;
begin
DecodeTime(now,i,j,k,ss);
label1.Caption:=IntToStr(i);
label2.Caption:=IntToStr(j);
label3.Caption:=IntToStr(k);
end;

 

曾

曾阿牛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #10

源码空间有个例子，不知道你可不可以用
http://www.playicq.com/dispdocnew.php?id=9733

 

Z

zhaomh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #11

var
i:integer;
begin
i:=strtoint(FormatDateTime('HH', now));//MM or SS

 

J

jiang_sl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #12

to simon707
照你的方法我做出来了，明天有作业交了，基本的算法我都做了出来，只差那该死的
时分秒，不过我想向你请教一下TDateTime类型怎样使用

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #13

做机械时钟，那你要用TTimer定时器控件

 

D

dcs_dcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #14

TDateTime是个时间类型，你想怎么用就怎么用啊，

 

S

simon707

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #15

TDateTime是个时间类型，其本质就是一个双精度的浮点数。其中整数部分表示日期，
小数部分表示时间。
在实际使用中，通常要根据需要对其进行解码或类型变换才能使用。
常用的函数和过程有：
DateToStr
TimeToStr
DateTimeToStr
DecodeTime
DecodeDate
DecodeDateTime
前三个用来转换为字符串变量，后三个用来转换为整数变量。

 

J

jiang_sl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #16

楼上的说的对，不过我看那帮助文件发现TDateTime类型是一大串的数字

 

J

jiang_sl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #17

接受答案了.