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

    Функция 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