5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
tigerchina 2002-12-20
- 打赏
- 举报
谢谢tommy_linux(津工之鸟)
54efei 2002-12-20
- 打赏
- 举报
关注！
lovingkane 2002-12-20
- 打赏
- 举报
关注
tommy_linux 2002-12-20
- 打赏
- 举报
var
myVar:double;
prev,now: TDatetime;
days,hours,minutes,seconds:integer;
begin
prev :=strtoDatetime('2002-12-20 11:18:00');
now := strtoDatetime('2002-12-20 11:20:00');
myvar:=now-prew; //时间 浮点型
days:=Round(myvar); //天数
hours:=Round(myvar*24); //小时数
minutes:=Round(myvar*24*60); //分钟
seconds:=Round(myvar*24*60*60); //秒
end;
myVar:double;
prev,now: TDatetime;
days,hours,minutes,seconds:integer;
begin
prev :=strtoDatetime('2002-12-20 11:18:00');
now := strtoDatetime('2002-12-20 11:20:00');
myvar:=now-prew; //时间 浮点型
days:=Round(myvar); //天数
hours:=Round(myvar*24); //小时数
minutes:=Round(myvar*24*60); //分钟
seconds:=Round(myvar*24*60*60); //秒
end;
tommy_linux 2002-12-20
- 打赏
- 举报
:)
Label1.caption:=FormatDateTime('yyyy"."mm"."dd hh:nn:ss:zzz',now);
Label1.caption:=FormatDateTime('yyyy"."mm"."dd hh:nn:ss:zzz',now);
tigerchina 2002-12-20
- 打赏
- 举报
zuccjin:
可以写个format string给我?
可以写个format string给我?
tigerchina 2002-12-20
- 打赏
- 举报
var
prev,now: TDatetime;
begin
prev := time;
sleep(100);
now := time;
Caption := FloatToStr(now-prev);
end;
但这段代码caption显示不为0
prev,now: TDatetime;
begin
prev := time;
sleep(100);
now := time;
Caption := FloatToStr(now-prev);
end;
但这段代码caption显示不为0
zuccjin 2002-12-20
- 打赏
- 举报
有的啊，用formattime()
Drate 2002-12-20
- 打赏
- 举报
在TDATETIME类型中并没有记录下微秒的值!
看来是此路不通!
看来是此路不通!
