Типы, функции и процедуры Delphi для работы с датой и временем.

1. Функции и процедуры Delphi для работы с датой и временем.

2. Тип TDateTime.

3. Тип TTimeStamp.

4. Тип TSQLTimeStamp.

Модуль
System

Синтаксис Delphi:

type TDateTime = type Double;

Описание

Тип TDateTime - это основной тип в Delphi для работы с датой и временем. Он является числом с плавающей запятой, целая часть которого содержит число дней, отсчитанное от некоторого начала календаря, а дробная часть равна части 24-часового дня, т.е. характеризует время и не относится к дате. Для 32-разрядных версий Delphi за начало календаря принята дата 12/30/1899, 12 часов.

Ниже приведены несколько примеров значения TDateTime и соответсвующие им дата и время:

Чтобы найти количество дней, включая дробную часть, между двумя датами, просто вычтите два значения, если только одно из них не является отрицательным. Аналогично, если значение TDateTime не отрицательное, то, чтобы увеличить значение даты и времени на определенное кличество дней, включая дробную часть, достаточно прибавить количество дней, включая дробную часть, к значению TDateTime.

Когда обрабатываются отрицательные значения TDateTimes, то вычисление дробной части производится отдельно. Дробная часть отражает часть 24-часового дня не зависимо от знака значения TDateTime. Например, 6:00 am on 12/29/1899 это –1.25, а неt –1 + 0.25, что составило бы –0.75. Значений TDateTime между –1 и 0 не существует.

Примечание: В Delphi 1 за начало отсчета принят год 1, т.е. для перевода даты Delphi 1 в дату последующих версий Delphi надо вычесть из даты число 693594.

TTimeStamp представляет значения дата и время.

Модуль
SysUtils

Синтаксис Delphi:

type 

  TTimeStamp = record
    Time: Integer;
    Date: Integer;

  end;

Описание

Используйте TTimeStamp если требуется повышеная точность представления значения времени в знчениях дата/время. Если нет необходимости сохранять значение времени с точностью до милисекунд, используйте более компактное TDateTime. Если необходима еще большая точность, то используйте TSQLTimeStamp (но НЕ назначайте его типом Variant).

Поле Time field показывает количество милисекунд, прошедших с полуночи.

Поле Data показывает число календарных дней от начала календаря (число дней с 1/1/0001 плюс один).

TSQLTimeStamp представляет значения даты и времени с очень высокой точностью.

Модуль
SqlTimSt

Синтаксис Delphi:

type TSQLTimeStamp = packed record

    Year : SmallInt;
    Month : Word;
    Day : Word;
    Hour : Word;
    Minute : Word;
    Second : Word;
    Fractions : LongWord;
  end;

Описание

Драйвера баз данных dbExpress используют TSQLTimeStamp когда работают со значениями даты и времени.

• Year определяет год от 1 до 9999.
• Month определяет месяц от 1 до 12.
• Day определяет день месяца, от 1 до 28, 29, 30, или 31, в зависимости от значения Month.
• Hour определяет час от 0 до 23.
• Minute и Second могут колебаться от 0 до 59.
• Fractions определяет милисекунды от 0 до 999.

Используя функцию VarSQLTimeStampCreate, Вы можете создать тип Variant который представляет значение TSQLTimeStamp. Фактически, простейший путь манипулирования значениями SQLTimeStamp это создать подобный Variant и использовать встроеные операторы, обеспечивающие работу с Variant.

Платонов А.Н.
31.03.2008

---

Список литературы:

1. Delphi 7 Help