5,388
社区成员
发帖
与我相关
我的任务
分享
var
StartTime,EndTime: TDateTime;
Hours: Integer;
begin
StartTime := Now;
...
//数小时后
EndTime := Now;
Hours := Trunc( (EndTime - StartTime)(*天数*) * 24 (*小时数*) );
ShowMessage('共经历了:'+ IntToStr(Hours) + '个小时.');
end;
var
nh,oh: Tdatetime;
begin
oh:=strtodatetime('2008-7-8 05:30:00');
nh:=strtodatetime('2008-7-8 07:30:00');
showmessage(floattostr(hourspan(nh,oh)));
end;