抓狂小白的程式筆記

uses DateUtils;

...

const

  t1 = '10:00:34';

  t2 = '10:00:33';

begin

  ShowMessage(

    IntToStr(

      SecondsBetween(

        StrToTime(t1),

        StrToTime(t2)

      );

    );

  );

end;

答案會是 0

四捨六入五成雙就算了

秒數相差還要給我偷一秒

這種超基礎的數學可以不要再給我出亂子了嗎 找BUG都找很久 這誰想的................

解決辦法

  function SecondsBetweenEX(const ANow, AThen: TDateTime): Int64;
  begin
    Result := Round(SecondSpan(ANow, AThen));
  end;

//20221121 補充毫秒

  function MillSecondsBetweenEX(const ANow, AThen: TDateTime): Int64;
  begin
    Result := Round(MilliSecondSpan(ANow, AThen));
  end;