Возвращает значения года, месяца и дня из значения переменной даты и времени.

 

Синтаксис

procedure DecodeDate(dt: double; var wYear, wMonth, wDay: word);

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

dt

double

дата и время;

wYear

word

возвращаемое значение, год;

wMonth

word

возвращаемое значение, месяц;

wDay

word

возвращаемое значение, день.

 

Результат функции

Год, месяц и день, соответствующий указанной дате.

 

Пример

var
  wYear, wMonth, wDay: word;
begin
  DecodeDate(Now, wYear, wMonth, wDay);
 
  mLogScript(' Year: ' + inttostr(wYear), '');
  mLogScript('Month: ' + inttostr(wMonth), '');
  mLogScript('  Day: ' + inttostr(wDay), '');
end.

Результат работы скрипта

[14:35:30] (Log "DecodeDate"):  Year: 2016

[14:35:30] (Log "DecodeDate"): Month: 2

[14:35:30] (Log "DecodeDate"):   Day: 23

 

Ещё посмотреть

IntToStr
mLogScript

Now