Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Округление целого числа до 5
Категория: Математика
Категория: Математика
Узнать запущен ли сервис FireBird
Категория: Интернет и Сети
Категория: Интернет и Сети
Дата изменения файла
Категория: Файловая система
Категория: Файловая система
Как можно проверить, запущена программа с локального диска или из сети
Категория: Интернет и Сети
Категория: Интернет и Сети
Как в Memo прокрутить текст
Категория: Компоненты
Категория: Компоненты
Получить версию программы VersionInfo
Категория: Приложение
Категория: Приложение
Создание цветных строк в ListBox
Категория: Компоненты
Категория: Компоненты
Корректное колесико мыши
Категория: Приложение
Категория: Приложение
BDE. Создание алиасов
Категория: Базы данных
Категория: Базы данных
Получить изображение формы в виде Bitmap и поместить его в буфер обмена
Категория: Компоненты
Категория: Компоненты
Delphi - Справочник: EncodeTime
EncodeTime
|
function EncodeTime ( const Hour, Min, Sec, MSec : Word ) : TDateTime; |
Функция (Unit SysUtils)
|
Формирует значение TDateTime из значений часа, минуты, секунды и миллисеккунды
|
Описание:
|
Функция EncodeTime генерирует возвращаемое значение TDateTime из переданных значений Часа (Hour), Минуты (Min), Секунды (Sec) и Миллисекунды (MSec). Разрешенные значения параметра: Hour = 0..23 Min = 0..59 Sec = 0..59 MSec = 0..999 Если Вы превысите эти значения, то подниметя EConvertError. |
Пример кода: Назначение времени переменной TDateTime
|
var myDate : TDateTime; begin // Устанавливаем мою переменную даты используя функцию EncodeTime myDate := EncodeTime(12, 34, 56, 789); LongTimeFormat := 'hh:mm:ss.z'; // Гарантируем, что Миллисекунды будут показаны ShowMessage('Дата установлена в '+DateToStr(myDate)); ShowMessage('Время установлено в '+TimeToStr(myDate)); end;
Результат:
|
Дата установлена в 30/12/1899 Время установлено в 12:34:56.789 |
Примечание:
|
Значение Даты для TDateTime всегда устанавливается в 30 декабря 1899. Почему, не ясно - это за 2 дня до начала 20-го столетия. |