发信人: 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]
|
|