以小时,分钟,秒为单位的日期时间之间的差异

Question

我试图获得两个日期时间之间的差异,并将其显示为字符串为hh:mm

q.parambyname('vstart').asdatetime:=  vstart;
q.parambyname('vend').asdatetime:= vend;
d:= vend-vstart;
mins:= d * 1440;
q.ParamByName('mins').asBCD:= mins;

目前数据库只需几分钟即可存储

例子(0.39)

我想从数据库中取出它并以字符串格式hh:mm显示它

Answer 1

在DateUtils有一个函数MinutesBetween,其可被用作这样的:

m := MinutesBetween(vend,vstart);
yourHMStr := Format('%2.2d:%2.2d',[m div 60,m mod 60]);

Answer 2

我可以使用以下方法提出这个简单的代码DateUtils：

DiffTimeStr:= FormatDateTime('hh:nn:ss', TimeEnd - TimeStart);