Формат TDateTime выдает неверный результат, если дата менее 30 декабря 1899 года

Posted by obzor under Delphi

Формат TDateTime выдает неверный результат, если дата менее 30 декабря 1899 года:

procedure TForm1.Button1Click(Sender: TObject);
var t: TDateTime;
    s: string;
begin
   Memo1.Clear;
   t:=-3;
   repeat
      s:=FormatDateTime('dd.mm.yyyy hh:nn:ss', t);
      Memo1.Lines.Add(Format('%.5f = %s', [t, s]));
      t:=t+1/24;
   until t>=3;
end;

Как так? Есть ли корректный способ отображения?

Arigato

Читаем про данный формат тут — http://www.delphibasics.ru/TDateTime.php

Тип TDateTime содержит значение даты и времени.

Она сохраняется как переменная Double, с датой как целая часть, а время как дробная. Дата сохраняется как число дней с 30 декабря 1899. Не понятно, почему не 31 декабря. 01 января 1900 имеет значение 2.

Поскольку TDateTime фактически является Double, то вы можете выполнять над ним вычисления, как будто это было число. Это очень полезно для вычислений типа разницы между двумя датами.

Для работы с датой и временем можно создать свой собственный тип:

type TMyDateTime = record
  Day: 1..31;
  Month: 1..12;
  Year: Integer;
  Hours: 0..23;
  Minutes: 0..59;
  Seconds: 0..59;
end;

Ну и дальше реализовать над ним необходимые операции (при желании это все можно оформить в виде класса).

тема на форуме

Похожие статьи

• Получить разницу между датами
• Получить время через интернет