计算出发日期和持续时间的到达日期

Question

我正在尝试制作一个程序来计算火车何时到达b 我有时间乘火车离开，以及从a到b的距离 我需要帮助一个算法来查找该列车是否绕过24小时 就像我得到这些时间：火车在20:55离开，火车时间--11：40 结果应该是8:35，但我怎么能得到它？

 program troleibusai;
 var xxx:integer ;
 f,g:text ;
 a:real;
 Begin
 Assign(F,'train_times'); 
 Reset(F);
 Assign(G,'results.txt');
 Rewrite(G);
 Read(F,left_hour);
 Read(F,left_minute);
 Read(F,ride_hour);
 Read(F,ride_minute);

继承代码。

Answer 1

查看单位dateutils中的函数，

e.g。 http://www.freepascal.org/docs-html/rtl/dateutils/minutesbetween.html

Answer 2

计算left_hour * 60 + left_minute + ride_hour * 60 + ride_minute
得到它div 60和mod 60