在使用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;