Delphi-Help

Описание

var TwoDigitYearCenturyWindow : Word;

Переменная TwoDigitYearCenturyWindow используется при преобразовании строки даты с 2-мя цифрами года в значение TDateTime. Значение TwoDigitYearCenturyWindow вычитается из текущей даты, чтобы установить конверсионный порог.

Например:

TwoDigitYearCenturyWindow: 50 (по умолчанию)
Текущий год: 2006
Тогда порог устанавливается в: 1956
100-летнее окно становится: 1956 - 2055

При преобразовании строки, где год состоит из 2 цифр, типа 75, эти 2 цифры сравниваются с 2-мя последними цифрами порога. Если больше, то дата находится в меньшем столетии, например 1975. Если ниже чем порог, то дата находится в более высоком столетии. Например, 44 дал бы 2044.

Пример кода

var
myDate : TDateTime;
formattedDate : string;

begin
// Установите дату с 2-мя цифрами года, используя порог заданный по умолчанию
myDate := StrToDate('09/05/30');
ShowMessage('09/05/30 используя порог по умолчанию = '+DateToStr(myDate));

// Теперь изменяем порог заданный по умолчанию на 80:
// 2007 (на время написания) - 80 дает 1927
// 30 больше 22, так что выбирается 1900-ое столетие
TwoDigitYearCenturyWindow := 80;
myDate := StrToDate('09/05/30');
ShowMessage('09/05/30 используя изменённый порог = '+DateToStr(myDate));
end;

09/05/30 используя порог по умолчанию = 09/05/2030
09/05/30 используя изменённый порог = 09/05/1930

Примечание

Если значение TwoDigitYearCenturyWindow является нулевым, то значение всегда устанавливается в текущем столетии, независимо от этих 2 значений цифр.