Тип дата-время в Delphi

В языке Delphi тип дата-время используется для хранения даты и времени одновременно. Данный тип задается идентификатором TDateTime. Во внутреннем представлении она сохраняется как переменная типа Double, целая часть определяет дату, а дробная часть задает время. Сама дата определяется как число дней прошедших с 30 декабря 1899 года. Число 39367.632 если его перевести в тип даты-времени будет 12 октябрем 2007 года - дата, 15:10:04 - время.

Число дней может быть отрицательным, но числа менее  -693594 не подлежат преобразованию (даты менее 00.00.0000). Тип даты время занимает 8 байт оперативной памяти.

С данными типа TDataTime можно производить стандартные операции, которые применяются с вещественными типами. Также использовать функции для этого типа данных.

Для отображения текущей даты и времени напишем такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Сейчас ' + DateTimeToStr(Now));
end;

Теперь рассмотрим случай когда нам надо узнать количество дней прошедших, например с 1 января 12 года до сегодняшнего дня.

procedure TForm1.Button2Click(Sender: TObject);
var
    day : Double;
begin
    day := Date - StrToDate('01.01.2012');
    ShowMessage( FloatToStr(Day));
end;

Итог: нами был рассмотрен тип тип дата-время.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>