StrToDate
Модуль: SysUtils
function StrToDate(const S: string): TDateTime; overload;
function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload;
Функция преобразует дату, сохраненную в виде строки S, в тип TDateTime . Если формат даты неправильный, функция делает исключение EConvertError. Формат даты зависит от местоположения, поэтому вторая версия функции имеет параметр TFormatSettings , который регулирует характеристику формата даты для данного региона.
Пример использования:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program FooBar; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var Date : TDateTime; begin Date := StrToDate('2006-03-16'); Date := IncYear(Date); Writeln('Już za rok będzie: ' + DateToStr(Date)); Readln; end. |
Разделитель даты также определяется в глобальной переменной DateSeparator .