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

问题描述：

我想制定一个计划，当火车来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);

继承人的代码。

[代码]程序troleibusai; var xxx：integer; f，g：文字; a：real; 开始指定（F，'train_times'）; 复位（F）; 指定（G，'results.txt'）; 重写（G）; 阅读（F，left_hour）; 阅读（F，left_minute）; 阅读（F，ride_hour）; 阅读（F，ride_minute）; [/ code] – 2013-04-24 11:45:29

您确定只需要算法还是程序？如果它的代码可以帮助你，那么你应该说明你的Pascal版本。例如：freepascal – itsols 2013-04-24 11:47:23

在评论中显示您的代码不是理想的事情。请编辑您的问题并在其中插入代码。 – itsols 2013-04-24 11:48:12

答

有在单元dateutils函数之间的看，

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

答

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

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

相关推荐