急!两个时间相减如何做 有两个时间'2002-11-03 09:23:54.545'和'2002-11-03 10:12:34.343'求它们之间的时间相差多少,不必到秒,请问该如何做! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 直接相减,然后用FormatDateTime()就可以了 FormatDateTime('yyyy-mm-dd hh:mm:ss', Date1-Date2) time1:=StrToDateTime('2002-11-03 09:23:54');time2:=StrToDateTime('2002-11-03 10:12:34');time3:=time2-time1;formatDateTime('yyyymmddhhmm',time3); var MyVar:double; Time1,Time2:TDateTime; Days,Hours,Minutes,Seconds:Integer;begin Time1:=StrToDateTime('2002-11-03 09:23:54'); Time2:=StrToDateTime('2002-11-03 10:12:34'); MyVar:=Time2-Time1; //时间实际上就是Double浮点类型 Days:=Round(MyVar); //四舍五入取整就是天数 Hours:=Round(MyVar*24); //小时数 Minutes:=Round(MyVar*24*60); //分钟数 Seconds:=Round(MyVar*24*60*60); //秒数end; 先将字符串转换为时间,StrToDateTime 然后相减,直接相减ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss', ResultDateTime)) 如何来取得一个局域网内的打印名,并监控其打印为任务。(200分) 今天24岁生日乐,散散分~~~ 急问fastreport收费问题!! 登陆窗口时,怎么会出现声音? 熟悉SocketConnection的朋友请进,我自己先描我的几点问题 怎样在一个Form上显示图片? 不算很难的问题! 关于取得对方ip地址的方法 Treeview中拖动节点的一个小问题 关于流的操作。相关:sql7,richedit 又有问题,大家来看看 大家帮忙呀
time2:=StrToDateTime('2002-11-03 10:12:34');
time3:=time2-time1;
formatDateTime('yyyymmddhhmm',time3);
MyVar:double;
Time1,Time2:TDateTime;
Days,Hours,Minutes,Seconds:Integer;
begin
Time1:=StrToDateTime('2002-11-03 09:23:54');
Time2:=StrToDateTime('2002-11-03 10:12:34');
MyVar:=Time2-Time1; //时间实际上就是Double浮点类型
Days:=Round(MyVar); //四舍五入取整就是天数
Hours:=Round(MyVar*24); //小时数
Minutes:=Round(MyVar*24*60); //分钟数
Seconds:=Round(MyVar*24*60*60); //秒数
end;
StrToDateTime
然后相减,直接相减
ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss', ResultDateTime))