2,498
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
smhilyyan 2013-10-25
- 打赏
- 举报
hoursBetween
Oraclers 2013-10-25
- 打赏
- 举报
implementation
uses DateUtils;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
D1,D2 :TDatetime;
H :Double;
begin
D1 := Now-1.2556;
D2 := Now;
H := HoursBetween(D2,D1); //求相差的小时数，忽略小数。
//H := (D2-D1)*24.0; //可以求出带小数的小时数。
showmessage(floatTostr(H));
end;
鐵蛋 2013-10-25
- 打赏
- 举报
GetTickCount(),换算一下
zbdzjx 2013-10-25
- 打赏
- 举报
相减，再乘24。
lhy 2013-10-25
- 打赏
- 举报
delphi的时间就是双精度浮点数,可以直接相减,差就是两个时间相差的日数.
arSavior 2013-10-25
- 打赏
- 举报
使用hoursBetween函数，在乘24进行一下换算
