2012-10-23 102 views
5

我试图得到两个日期时间之间的差异,在字符串HH显示它:毫米差异,分钟,秒

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

+6

你真的需要数据库中的'mins'字段吗? 'vstart'和'vend'字段已经包含了所有需要返回查询结果之间差异的信息(需要的格式)。 – teran

回答

13

DateUtils有一个函数的n MinutesBetween可以这样使用:

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