J jiang_sl Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-21 #1 我想用DELPHI做一个机械时钟,却不知怎么样获得当前的hour和当前的minute和second,我试过用gettime函数做不出来,我查过帮助文件却看不懂houroftheday,hourofthemonth,hourspan和gethour怎么用,谁能help me万分感激,谢谢
我想用DELPHI做一个机械时钟,却不知怎么样获得当前的hour和当前的minute和second,我试过用gettime函数做不出来,我查过帮助文件却看不懂houroftheday,hourofthemonth,hourspan和gethour怎么用,谁能help me万分感激,谢谢
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);//时间转换
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也可以的, 呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
给你一个很无聊的: 有的时候并不是什么都要分解出来的呀~~~~~ 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;
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 前三个用来转换为字符串变量,后三个用来转换为整数变量。
TDateTime是个时间类型,其本质就是一个双精度的浮点数。其中整数部分表示日期, 小数部分表示时间。 在实际使用中,通常要根据需要对其进行解码或类型变换才能使用。 常用的函数和过程有: DateToStr TimeToStr DateTimeToStr DecodeTime DecodeDate DecodeDateTime 前三个用来转换为字符串变量,后三个用来转换为整数变量。
J jiang_sl Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-22 #16 楼上的说的对,不过我看那帮助文件发现TDateTime类型是一大串的数字