7.1.3. Тип
дата-время
Тип дата-время определяется стандартным
идентификатором TDateTime и предназначен для одновременного хранения и даты,
и времени. Во внутреннем представлении он занимает 8 байт и подобно currency
представляет собой вещественное число с фиксированной дробной частью: в целой
части числа хранится дата, в дробной - время. Дата определяется как количество
суток, прошедших с 30 декабря 1899 года, а время - как часть суток, прошедших
с 0 часов, так что значение 36444,837 соответствует дате 11.10.1999 и времени
20:05. Количество суток может быть и отрицательным, однако значения меньшие
-693594 (соответствует дате 00.00.0000 от Рождества Христова) игнорируются функциями
преобразования даты к строковому типу.
Над данными типа TDateTime определены
те же операции, что и над вещественными числами, а в выражениях этого типа могут
участвовать константы и переменные целого и вещественного типов.
Для работы с датой и временем используются
подпрограммы, перечисленные в табл. 7.6.
Таблица 7.6. Подпрограммы
для работы с датой и временем
|
Function
Date: TDateTime;
Function
DateToStr(D:
TDateTime):
String;
Function
DateTimeToStr(D:
TDateTime):
String
;
Function
FormatDateTime
(Format:
String
;
Value: TDateTime):
String;
Function
Now: TDateTime;
Function
Time: TDateTime;
Function
TimeToStrfT:
TDateTime): String;
|
Возвращает текущую дату
Преобразует дату в строку символов
Преобразует дату и время в
строку символов
Преобразует дату и время из
параметра value в строку символов в соответствии со спецификаторами параметра
Format (см. пояснения в п. 7.3.)
Возвращает текущую дату и время
Возвращает текущее время
Преобразует время в строку
|
Более полный перечень функций преобразования
даты и времени в строку символов и обратно указан в п. 7.3.1.
Поскольку тип TDateTime совместим
с форматом вещественных чисел, можно без труда определить дату, отстоящую от
заданной на сколько-то дней вперед или назад: для этого достаточно соответственно
прибавить к заданной дате или отнять от нее нужное целое число. Например, оператор
IbOutput.Caption := DateToStr(Date
+ 21);
поместит в метку
IbOutput
дату, соответствующую текущей дате плюс 3 недели. Чуть сложнее с исчислением
времени. Например, чтобы добавить к текущему времени полтора часа, следует использовать
выражение
Time + StrToTime('1:30')
ИЛИ
Time+1.5/24
С помощью показанного ниже обработчика
bbRunciick учебной программы вы сможете ввести в строке ввода любое вещественное
число и посмотреть его интерпретацию как значение типа
TDateTime:
procedure
TfmExample.bbRunClick(Sender:
TObject) ;
{Показывает вещественное
число, введенное в строке edinput,в формате даты-времени}
var
k: Double;
begin
//Преобразуем строковый
ввод в вещественное число
try
k := StrToFloat(edinput.Text);
except
ShowMessage('Ошибка записи
вещественного числа');
edinput.SelectAll ;
Exit
end;
//Показываем результат
как дату-время
IbOutput. Caption := ForrnatDateTime
('dd.mm.yyyy hh:mm:ss',
k);
//
Возвращаем фокус ввода
в edinput
edinput.SetFocus ;
end;
