Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Форма всегда наверху
Категория: Компоненты
Категория: Компоненты
Корректное колесико мыши
Категория: Приложение
Категория: Приложение
Получение выделенного текста из компонента TWebBrowser
Категория: Интернет и Сети
Категория: Интернет и Сети
Автоматическое определения кодировки текста
Категория: Текст и строки
Категория: Текст и строки
Удалить или оставить симолы
Категория: Текст и строки
Категория: Текст и строки
Перекодировка текста DOS-Windows-Koi8
Категория: Текст и строки
Категория: Текст и строки
Как поместить графический элемент в ListBox
Категория: Компоненты
Категория: Компоненты
Функции дат в SQL
Категория: Базы данных
Категория: Базы данных
Как получить дату создания файла
Категория: Файловая система
Категория: Файловая система
К-во рабочих дней в месяце
Категория: Математика
Категория: Математика
Delphi - Справочник: DecodeDate
DecodeDate
|
procedure DecodeDate ( const SourceDate : TDateTime; out Year, Month, Day : Word ) ; |
Процедура (Unit SysUtils)
|
Извлекает значения года, месяца, дня из TDateTime переменной
|
Описание:
|
Процедура DecodeDate извлекает значения года, месяца и дня из данного SourceDate TDateTime значение типа. Она сохраняет значения в переменных вывода: Year, Month и Day. |
Пример кода: Добавляет месяц в дату, и затем извлекает значения года, месяца и дня
|
var myDate : TDateTime; myYear, myMonth, myDay : Word; begin // Установка переменной myDate в значение декабря 2000 myDate := StrToDate('29/12/2000'); // Теперь добавляме месяц к этому значению myDate := IncMonth(myDate); // И позволяем нам увидеть, что мы получили DecodeDate(myDate, myYear, myMonth, myDay); ShowMessage('myDate сейчас = '+DateToStr(myDate)); ShowMessage('myDay = '+IntToStr(myDay)); ShowMessage('myMonth = '+IntToStr(myMonth)); ShowMessage('myYear = '+IntToStr(myYear)); end;
Результат:
|
myDate сейчас = 29/01/2001 myDay = 29 myMonth = 1 myYear = 2001 |