delphi - 時間、分、秒での日時の差

Question

2 つの日時の差を取得し、文字列で 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]);