比如一个时间是2003年5月1日1时3分2秒,另一个是Now(),怎样求他们之差并以秒为单位?

hairun 2003-08-30 08:42:04
谢谢
...全文
34 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ychuiming 2003-08-30
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
dtr,dts,dte : TDateTime;
min : double;
begin
dts :=now;
dte :=strtodatetime('2000-11-9 11:30');
dtr :=dte-dts;
min :=dtr*24*60*60;
showmessage(floattostr(min))
end;
ychuiming 2003-08-30
  • 打赏
  • 举报
回复
(now()-strtodatetime('2003-5-1 01:01:020'))*24*3600

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧