Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Заполнение компонента TTreeView данными из TDataSet
Категория: Базы данных
Категория: Базы данных
Сохраняем Bitmap в поле dbase
Категория: Базы данных
Категория: Базы данных
Округление времени до 5 мин
Категория: Базы данных
Категория: Базы данных
Взять часть URL, которая следует после названия сайта
Категория: Интернет и Сети
Категория: Интернет и Сети
Добавить данные в EXE файл и получить их
Категория: Файловая система
Категория: Файловая система
BDE. Динамическое создание псевдонима
Категория: Базы данных
Категория: Базы данных
Показать удаленные записи в DBase
Категория: Базы данных
Категория: Базы данных
Отступ в Memo
Категория: Компоненты
Категория: Компоненты
Как в Memo прокрутить текст
Категория: Компоненты
Категория: Компоненты
Переключение раскладки клавиатуры
Категория: Приложение
Категория: Приложение
Delphi - Справочник: EncodeDate
EncodeDate
|
function EncodeDate ( const Year, Month, Day : Word ) : TDateTime; |
Функция (Unit SysUtils)
|
Формирует значение TDateTime из значений года, месяца и дня
|
Описание:
|
Функция EncodeDate генерирует TDateTime возвращая значение из переданных значений Года (Year), Месяца (Month) и Дня (Day). Разрешенные значения параметра: Year = 0..9999 Month = 1..12 Day = 1..31 (в зависимости от месяца/года) Если Вы превысите эти значения, то подниметя EConvertError. |
Пример кода: Назначение даты переменной TDateTime
|
var myDate : TDateTime; begin // Устанавливаем мою переменную даты используя функцию EncodeDate myDate := EncodeDate(2000, 02, 29); LongTimeFormat := 'hh:mm:ss.zzz'; // Гарантируем, что Миллисекунды будут показаны ShowMessage('Дата установлена в '+DateToStr(myDate)); ShowMessage('Время установлено в '+TimeToStr(myDate)); end;
Результат:
|
Дата установлена в 29/02/2007 Время установлено в 00:00:00.000 |
Примечание:
|
Значение времени (time) для TDateTime всегда устанавливается в 00:00:00.00 |