Клуб программистов

    Функция StrToDate предназначена для преобразования строки Date в значение типа TDateTime.

     Строка с датой должна соответствовать формату, заданному в переменной ShortDateFormat, и использовать символ DateSeparator для разделения значений дня, месяца и года.

     Форматом по умолчанию для Англии является день/месяц/год, где

     день должен быть в диапазоне 1..31 (зависит от месяца/года)
    месяц должен быть в диапазоне 1..12
    год должен быть в диапазоне 0..9999 (необязательный параметр)

     Если год не вводиться, то функция использует текущий год.

     Обратите внимание, что, к примеру, 0015-й год должен быть задан вместе с цифрами века; 15-й год будет расценен как относящийся к текущему веку.

     Если год двузначный, то век определяется значением переменной TwoDigitYearCenturyWindow.

     Время будет установлено в 0, то есть на начало заданного дня.

     Любые ошибки в строке с датой вызовут исключение EConvertError.

     Второй вариант этой функции предназначен для использования в потоках. Перед вызовом функции вы должны заполнить запись FormatSettings. Функция делает локальную копию глобальных переменных форматирования, что делает ее потокобезопасной.

var
   myDate : TDateTime;

begin
   myDate := StrToDate('15/03/75');
   ShowMessage('15/03/75 = '+DateTimeToStr(myDate));
   myDate := StrToDate('01/01/2075');
   ShowMessage('01/01/2075 = '+DateTimeToStr(myDate));
end;

15/03/75 = 15/03/1975
01/01/2075 = 01/01/2075