StrToDateTime
Модуль: SysUtils
function StrToDateTime(const S: string): TDateTime; overload;
function StrToDateTime(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 := StrToDateTime('2006-03-16 23:30:00'); Date := IncYear(Date); Writeln('Już za rok będzie: ' + DateTimeToStr(Date)); Readln; end. |