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

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);