अंतर, मिनट, सेकंड

Question

मैं दो datetimes के बीच का अंतर हो और 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 में डेटाबेस से ले और यह प्रदर्शित करने के लिए करना चाहते हैं: मिमी

Answer 1

DateUtils में एक कार्यात्मक है n MinutesBetween जिसका उपयोग इस प्रकार किया जा सकता है:

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