Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: StrToTime
StrToTime
|
1 function StrToTime ( const Time : string ) : TDateTime; 2 function StrToTime ( const Time : string; const FormatSettings : TFormatSettings ) : TDateTime; |
Функция (Unit StrUtils)
|
Конвертирует строку с временем в значение с типом 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-ого столетия. Почему, точно неясно. |