Delphi-Help

Описание

1 function StrToTime ( const Time : string ) : TDateTime;
2 function StrToTime ( const Time : string; const FormatSettings : TFormatSettings ) : TDateTime;

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

Строка с временем должна соответствовать формату, заданному в переменной LongTimeFormat и использовать символ TimeSeparator для разделения значений часа, минуты и секунды.

Форматом по умолчанию для Англии является час:минута:секунда.миллисеккунда, где:

час должен быть в диапазоне 0..23
минута - должна быть в диапазоне 0..59 (необязательный параметр)
секунда - должна быть в диапазоне 0..59 (необязательный параметр)
миллисекунда - должна быть в диапазоне 0..999 (необязательный параметр)

Вы можете использовать текущие значение AM (до полудня) и PM (после полудня) (как задано в TimeAMString, TimePMString) или символы 'AM', 'am', 'PM' и 'pm' до или после значение времени.

Дата будет установлена на 30 декабря 1899 г., на день раньше начала 19 века.

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

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

Пример кода

var
myTime : TDateTime;

begin
myTime := StrToTime('3PM');
ShowMessage('3PM      = '+TimeToStr(mytime));
myTime := StrToTime('15');
ShowMessage('15       = '+TimeToStr(mytime));
myTime := StrToTime('15:03');
ShowMessage('15:03    = '+TimeToStr(mytime));
myTime := StrToTime('15:03:45');
ShowMessage('15:03:45 = '+TimeToStr(mytime));
end;

3PM = 15:00:00
15 = 15:00:00
15:03 = 15:23:00
15:03:45 = 15:23:45

Примечание

Предупреждение: значение даты установлено на 1 день меньше конца 19-ого столетия. Почему, точно неясно.