Проверка двух переменных TDateTime

Разница 1 день 22 часа.

TDateTime в Delphi и C++ Builder является двойным, где целая часть (часть слева от десятичной точки) хранит количество дней с базовой даты 30 декабря 1899 г. (см. примечание ниже), а дробная часть ( часть справа от запятой) — это время.

1899 год, который вы видите после вычитания, связан с тем, что у вас меньше полного дня, и, следовательно, вся часть числа равна нулю, и, как я уже упоминал, нулевая дата является базовой датой в декабре 1899 года. Поскольку ваша дата на 1 день позже этой базовой даты (при представлении в виде TDateTime дата интерпретируется как 31 декабря 1899 года.

Временная часть в 22 часа составляет приблизительно 0.9167 (на самом деле 0.916666666666667), что соответствует 22/24 дням.

Библиотека времени выполнения Delphi содержит модуль с именем DateUtils, который IIRC также доступен для C++ Builder (для него есть заголовочный файл), который содержит функции, которые могут вам помочь, например DaysBetween, которые могут оказаться полезными. Примеры его использования на C++ доступны здесь.

Что касается равенства (одна дата следует за другой), вы можете использовать стандартные операторы >, <, >=, <=, != и ==. Я также продемонстрировал это ниже.

Вот краткий пример (в Delphi, так как на этой машине у меня не установлен C++ Builder), который может объяснить:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, DateUtils;

var
  StartDate, EndDate, Diff: TDateTime;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    // Base date, formatted in US date format
    WriteLn('BaseDate: ', FormatDateTime('mm/dd/yyyy hh:nn:ss', 0));

    StartDate := EncodeDateTime(2012, 9, 11, 14, 0, 0, 0);
    EndDate := EncodeDateTime(2012, 9, 12, 16, 0, 0, 0);
    Diff := EndDate - StartDate;

    WriteLn('Diff as String: ', DateToStr(Diff));
    WriteLn('Diff as Double: ', Diff);
    WriteLn('DaysBetween: ', DaysBetween(EndDate, StartDate));

    // Equality
    WriteLn('EndDate after StartDate`, EndDate > StartDate);
    RegEx.Free;
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Это производит этот вывод:

BaseDate: 12/30/1899 00:00:00
Diff as String: 12/31/1899
Diff as Double:  1.08333333332848E+0000
DaysBetween: 1
EndDate after StartDate: TRUE

ПРИМЕЧАНИЕ. Базовая дата была установлена ​​Microsoft для COM, и по соображениям совместимости Delphi/C++ Builder принял ее.

Вы можете использовать обычные -, +, <, >, == и = с TDateTime.

Таким образом, чтобы увидеть, опережает ли одна дата другую, вы можете, например, вычесть их и посмотреть, больше или меньше нуля результат.