Функция DecodeDate в Delphi

Используемый модуль: SysUtils

Описание:

Разбивает дату Date на год — Year типа Word, месяц — Month типа Word и день — Day типа Word.

Синтаксис:

DecodeDate (Date: TDateTime; var Year, Month, Day: Word);

Пример использования:

uses SysUtils;
...
Var
  Y ,M, D: Word;
begin
  DecodeDate(Now, Y, M, D); // извлекаем год, месяц, день из текущей даты
  ShowMessage('Сейчас ' + IntToStr(D) + '.' + IntToStr(M) + '.' + IntToStr(Y));
end;

Результат:

Функция DecodeDate
DecodeDate в Delphi

Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий