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