Sự khác nhau giữa datetimes trong Giờ, Phút, Giây

Question

tôi đang cố gắng để có được sự khác biệt giữa hai datetimes và hiển thị nó trong chuỗi như hh: mm

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

hiện

các cửa hàng cơ sở dữ liệu nó trong vài phút

dụ (0,39)

tôi muốn sau đó mang nó từ cơ sở dữ liệu và hiển thị nó trong hh định dạng chuỗi: mm

Answer 1

trong DateUtils có một functio n MinutesBetween có thể được sử dụng như vậy:

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