日期函数

Question

Uses DateUtilsMinutesBetween(Date1,Date2)如上可以取到两个日期的间隔分. 但都是正数  我要取负 的实现过程

Answer 1

自己加个判断
if Date1 > Date2 then
  iRet := MinutesBetween(Date1,Date2) 
else
  iRet := 0 - MinutesBetween(Date1,Date2);

Answer 2

Uses DateUtils, Types;var
  Minutes: Int64;
  Date1, Date2: TDateTime;
begin
  case CompareDateTime(Date1, Date2) of
    LessThanValue: Minutes := MinutesBetween(Date1, Date2) * -1;
    GreaterThanValue: Minutes := MinutesBetween(Date1, Date2);
  end;
end;