在使用MinutesBetween求两个时间之间相差多少分钟的问题

 在使用MinutesBetween求两个时间之间相差多少分钟时，经常出现1分钟误差

 

以下是解决办法；

 

就是自己写一个函数。

 

uses DateUtilsfunction MyMinutesBetween(const ANow, AThen: TDateTime): integer;begin Result := round((MinuteSpan(ANow, AThen));end;orfunction MyMinutesBetween(const ANow, AThen: TDateTime): integer;begin Result := ceil((MinuteSpan(ANow, AThen));end;