date - 如何比较 dd/mm/yyyy 格式的两个日期？

Question

我有两个文件，想要比较您的编译日期以供将来更新。

假设新文件的日期为:20/09/2019，旧文件的日期为:19/09/2019。如何比较这两个相同格式的日期(dd/mm/yyyy)？

var
 UpDate, OldDate: string;
begin
  UpDate := '20/09/2019';
  OldDate := DateToStr(FileDateToDateTime(FileAge(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + 'test.exe'))) // 19/09/2019

  if UpDate > OldDate then
  begin
    // Do something
  end;
end;

Answer 1

您可以通过调用 DateUtils.CompareDate() 直接处理 TDateTime 值，而不是操作字符串。 .

var  OldDate, UpDate : TDateTime;
begin
  OldDate := EncodeDate(2019, 9, 20);
  UpDate := FileDateToDateTime(FileAge(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + 'test.exe'));
  if CompareDate(OldDate, UpDate) = LessThanValue  Then
  begin
    // Do something
  end;
end;