Delphi-Help

Описание

type TDateTime = type Double;

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

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

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

Пример кода

var
day1, day2 : TDateTime;
diff : Double;
begin
day1 := StrToDate('12/06/2002');
day2 := StrToDate('12/07/2002');
ShowMessage('day1 = '+DateToStr(day1));
ShowMessage('day2 = '+DateToStr(day2));

diff := day2 - day1;
ShowMessage('day2 - day1 = '+FloatToStr(diff)+' days');
end;

day1 = 12/06/2002
day2 = 12/07/2002
day2 - day1 = 30 days

Примечание

Никакая информация местного времени не содержится в TDateTime - только значения времени и дня.