Возвращает значения года, месяца, дня, часов, минут, секунд и миллисекунд из значения переменной даты и времени.
procedure DecodeDateTime(dt: double; var wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliSec: word);
Параметр |
Тип |
Значение |
---|---|---|
dt |
double |
дата и время; |
wYear |
word |
возвращаемое значение, год; |
wMonth |
word |
возвращаемое значение, месяц; |
wDay |
word |
возвращаемое значение, день; |
wHour |
word |
возвращаемое значение, часы; |
wMinute |
word |
возвращаемое значение, минуты; |
wSecond |
word |
возвращаемое значение, секунды; |
wMilliSecond |
word |
возвращаемое значение, миллисекунды. |
Год, месяц, день, часы, минуты, секунды и миллисекунды, соответствующие указанной дате.
var
wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliSecond: word;
begin
DecodeDateTime(Now, wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliSecond);
mLogScript(' Year : ' + inttostr(wYear), '');
mLogScript(' Month : ' + inttostr(wMonth), '');
mLogScript(' Day : ' + inttostr(wDay), '');
mLogScript(' Hours : ' + inttostr(wHour), '');
mLogScript(' Minutes : ' + inttostr(wMinute), '');
mLogScript(' Seconds : ' + inttostr(wSecond), '');
mLogScript('Milliseconds : ' + inttostr(wMilliSecond), '');
end.
[13:49:43] (Log "DecodeDateTime"): Year : 2016
[13:49:43] (Log "DecodeDateTime"): Month : 7
[13:49:43] (Log "DecodeDateTime"): Day : 7
[13:49:43] (Log "DecodeDateTime"): Hours : 13
[13:49:43] (Log "DecodeDateTime"): Minutes : 49
[13:49:43] (Log "DecodeDateTime"): Seconds : 43
[13:49:43] (Log "DecodeDateTime"): Milliseconds : 904