发信人: x_file()
整理人: (2000-12-07 21:41:19), 站内信件
|
【 在 gzsoftware (gzsoftware) 的大作中提到: 】
: 07-10-2000 20:21:54 07-10-2000 20:30:36 时间相减如何得到秒数?
:
: 如:07-10-2000 20:21:54
: 07-10-2000 20:30:36
: .......
相减的结果
试一试以下代码:
procedure TForm1.Button1Click(Sender: TObject);
var
dtr,dts,dte : TDateTime;
min : double;
begin
dts :=strtodatetime('2000-11-9 12:30');
dte :=strtodatetime('2000-11-9 11:30');
dtr :=dte-dts;
min :=dtr*24*60*60;
showmessage(floattostr(min))
end;
-- 别人笑我太疯癫,我笑他人看不穿
不见五陵豪杰墓,无花无酒锄作田
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 61.142.250.35]
|
|