Описание |
Функция 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. Функция делает локальную копию глобальных переменных форматирования, что делает ее потокобезопасной
|
|
Примечания |
Предупреждение: значение даты установлено на 1 день меньше конца 19-ого столетия. Почему, точно неясно.
|
|
Похожие команды |
LongTimeFormat Длинная версия времени в строковом формате
StrToDate Конвертирует строку с датой в значение типа TDateTime
StrToDateTime Конвертирует строку с датой и временем в значение типа TDateTime
TimeAMString Определяет значение AM в процедуре DateTimeToString
TimePMString Определяет значение PM в процедуре DateTimeToString
TimeSeparator Символ, используемый для разделения полей времени
TimeToStr Конвертирует значение времени типа TDateTime в строку
| |
|
Пример кода : Показ с и без минут и/или секунд |
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
|
|