StrToTime
Модуль: SysUtils
function StrToTime(const S: string): TDateTime; overload;
function StrToTime(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload;
Функция преобразует время, сохраненное в виде строки (параметр S ), в формат TDateTime . Если формат даты неправильный, функция сделает исключение EConvertError. Время, сохраняемое в цепочке, должно содержать час и минуту (необязательная секунда), разделенные разделителем ( глобальная переменная TimeSeparator ). Информация о формате сохранения даты также может быть предоставлена в записи 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 Time : TDateTime; begin Time := StrToTime('18:02'); Time := IncHour(Time); Writeln('Результат: ' + TimeToStr(Time)); Readln; end. |