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

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

以下是解决办法；

就是自己写一个函数。

uses DateUtils

function MyMinutesBetween(const ANow, AThen: TDateTime): integer;

begin

Result := round((MinuteSpan(ANow, AThen));

end;

or

function MyMinutesBetween(const ANow, AThen: TDateTime): integer;

begin

Result := ceil((MinuteSpan(ANow, AThen));

end;