algorithm - 根据出发日期和持续时间计算到达日期

Question

我正在尝试制作一个程序来计算火车何时从a到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

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

Answer 2

看看单元 dateutils 中的函数之间，

例如http://www.freepascal.org/docs-html/rtl/dateutils/minutesbetween.html