Delphi Programming: подпрограммы даты / времени

Сравнивает два значения TDateTime (возвращает «меньше», «равно» или «больше»). Игнорирует часть времени, если оба значения «падают» в один и тот же день.

Сравнивает два значения TDateTime (возвращает «меньше», «равно» или «больше»).

Декларация:
Тип TValueRelationship = -1..1
функция CompareDateTime (Const ADate, BDate: TDateTime): TValueRelationhip

Описание:
Сравнивает два значения TDateTime (возвращает «меньше», «равно» или «больше»).

TValueRelationship представляет отношение между двумя значениями. Каждое из трех значений TValueRelationship имеет символическую константу «понравился»:
-1 [LessThanValue] Первое значение меньше второго значения.
0 [EqualsValue] Два значения равны.
1 [GreaterThanValue] Первое значение больше второго значения.
CompareDate приводит к:

LessThanValue, если ADate раньше, чем BDate.
EqualsValue, если части даты и времени как ADate, так и BDate совпадают
GreaterThanValue, если ADate позже, чем BDate.

Пример:

var ThisMoment, FutureMoment: TDateTime; ThisMoment: = сейчас; FutureMoment: = IncDay (ThisMoment, 6); // добавляет 6 дней. // CompareDateTime (ThisMoment, FutureMoment) возвращает LessThanValue (-1) // CompareDateTime (FutureMoment, ThisMoment) возвращает GreaterThanValue (1)





instagram viewer

Сравнивает два значения TDateTime (возвращает «меньше», «равно» или «больше»). Игнорирует часть даты, если оба значения встречаются одновременно.

Декларация:
Тип TValueRelationship = -1..1
функция CompareDate (Const ADate, BDate: TDateTime): TValueRelationhip

Описание:
Сравнивает два значения TDateTime (возвращает «меньше», «равно» или «больше»). Игнорирует часть времени, если оба значения встречаются одновременно.

TValueRelationship представляет отношение между двумя значениями. Каждое из трех значений TValueRelationship имеет символическую константу «понравился»:
-1 [LessThanValue] Первое значение меньше второго значения.
0 [EqualsValue] Два значения равны.
1 [GreaterThanValue] Первое значение больше второго значения.
CompareDate приводит к:

LessThanValue, если ADate происходит ранее в день, указанный в BDate.
EqualsValue, если части времени ADate и BDate одинаковы, игнорируя часть Date.
GreaterThanValue, если ADate происходит позже в день, указанный в BDate.

Пример:

var ThisMoment, AnotherMoment: TDateTime; ThisMoment: = сейчас; AnotherMoment: = IncHour (ThisMoment, 6); // добавляет 6 часов. // CompareDate (ThisMoment, AnotherMoment) возвращает LessThanValue (-1) // CompareDate (AnotherMoment, ThisMoment) возвращает GreaterThanValue (1

Возвращает текущую системную дату.

Декларация:
тип TDateTime = тип Удвоение;

функция дата: TDateTime;

Описание:
Возвращает текущую системную дату.

Неотъемлемой частью значения TDateTime является количество дней, прошедших с 30.12.1899. Дробная часть значения TDateTime - это доля прошедшего 24-часового дня.

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

Пример: ShowMessage («Сегодня есть» + DateToStr (Date));

Преобразует значение TDateTime в строку (дата и время).

Декларация:
тип TDateTime = тип Удвоение;

функция DayOfWeek (Date: TDateTime): целое число;

Описание:
Возвращает день недели для данной даты.

DayOfWeek возвращает целое число от 1 до 7, где воскресенье - первый день недели, а суббота - седьмое.
DayOfTheWeek не соответствует стандарту ISO 8601.

Пример:

Дни const: массив [1..7] строки = ('Воскресенье понедельник вторник среда четверг пятница суббота') ShowMessage («Сегодня есть» + Дни [DayOfWeek (Date)]); //Сегодня понедельник

Дает количество целых дней между двумя указанными датами.

Декларация:
функция DaysBetween (const ANow, AThen: TDateTime): целое число;

Описание:
Дает количество целых дней между двумя указанными датами.

Функция рассчитывает только целые дни. Это означает, что он вернет 0 как результат разницы между 01.05.2003, 23:59:59 и 01.05.2003, 23:59:58 - где фактическая разница составляет один * целый * день минус 1 секунда. ,

Пример:

var dtNow, dtBirth: TDateTime; DaysFromBirth: целое число; dtNow: = сейчас; dtBirth: = EncodeDate (1973, 1, 29); DaysFromBirth: = DaysBetween (dtNow, dtBirth); ShowMessage ('Zarko Gajic "существует"' + IntToStr (DaysFromBirth) + «целые дни!»);

Возвращает только часть даты значения TDateTime, установив для части времени значение 0.

Декларация:
функция DateOf (Date: TDateTime): TDateTime

Описание:
Возвращает только часть даты значения TDateTime, установив для части времени значение 0.

DateOf устанавливает время на 0, что означает полночь.

Пример:

var ThisMoment, ThisDay: TDateTime; ThisMoment: = сейчас; // -> 06/27/2003 10:29:16:138. ThisDay: = DateOf (ThisMoment); // В этот день: = 27.06.2003 00: 00: 00: 000

Отделяет значения года, месяца и дня от значения TDateTime.

Декларация:
процедура DecodeDate (Date: TDateTime; вар Год, Месяц, День: Слово) ;;

Описание:
Отделяет значения года, месяца и дня от значения TDateTime.

Если заданное значение TDateTime меньше или равно нулю, параметры возврата года, месяца и дня устанавливаются на ноль.

Пример:

вар Y, M, D: Слово; DecodeDate (дата, Y, M, D); если Y = 2000, то ShowMessage («Вы находитесь в« неправильном »веке!);

Функция EncodeDate
Создает значение TDateTime из значений Year, Month и Day.

Декларация:
функция EncodeDate (год, месяц, день: слово): TDateTime

Описание:
Создает значение TDateTime из значений Year, Month и Day.

Год должен быть между 1 и 9999. Допустимые значения месяца: от 1 до 12. Допустимые значения дня: от 1 до 28, 29, 30 или 31, в зависимости от значения месяца.
Если функция завершается ошибкой, EncodeDate вызывает исключение EConvertError.

Пример:

вар Y, M, D: Слово; dt: TDateTime; Y: = 2001; М: = 2; D: = 18; dt: = EncodeDate (Y, M, D); ShowMessage ('Борна будет. один год на '+ DateToStr (DT))

Функция FormatDateTime
Форматирует значение TDateTime в строку.

Декларация:
функция FormatDateTime (Const Fmt: строка; Значение: TDateTime): строка;

Описание:
Форматирует значение TDateTime в строку.

FormatDateTime использует формат, указанный параметром Fmt. Список поддерживаемых форматов приведен в разделе «Справочные файлы Delphi».

Пример:

var s: string; d: TDateTime;... д: = Теперь; // сегодня + текущее время. S: = FormatDateTime ( 'дддд', д); // s: = среда. s: = FormatDateTime ("Сегодня" dddd "минута" nn ', d) // s: = Сегодня среда 24 минута

Добавляет или вычитает заданное количество дней из значения даты.

Декларация:
функция IncDay (ADate: TDateTime; Дни: целое число = 1): TDateTime;

Описание:
Добавляет или вычитает заданное количество дней из значения даты.

Если параметр Days отрицательный, возвращаемая дата

Пример:

var Date: TDateTime; EncodeDate (Дата, 2003, 1, 29) // 29 января 2003. IncDay (Дата, -1) // 28 января 2003

Возвращает текущую системную дату и время.

Декларация:
тип TDateTime = тип Удвоение;

функция Сейчас: TDateTime;

Описание:
Возвращает текущую системную дату и время.

Неотъемлемой частью значения TDateTime является количество дней, прошедших с 30.12.1899. Дробная часть значения TDateTime - это доля прошедшего 24-часового дня.

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

Пример: ShowMessage («Сейчас есть» + DateTimeToStr (Сейчас));

Дает количество целых лет между двумя указанными датами.

Декларация:
функция YearsBetween (Const SomeDate, AnotherDate: TDateTime): Integer;

Описание:
Дает количество целых лет между двумя указанными датами.

YearsBetween возвращает приближение, основанное на предположении о 365,25 дней в году.

Пример:

var dtSome, dtAnother: TDateTime; DaysFromBirth: целое число; dtSome: = EncodeDate (2003, 1, 1); dtAnother: = EncodeDate (2003, 12, 31); YearsBetween (dtSome, dtAnother) == 1 // не високосный год. dtSome: = EncodeDate (2000, 1, 1); dtAnother: = EncodeDate (2000, 12, 31); YearsBetween (dtSome, dtAnother) == 0 // високосный год