MyChat Scripts: DecodeDate, получение года, месяца, дня и времени из даты
Возвращает значения года, месяца, дня, часов, минут, секунд и миллисекунд из значения переменной даты и времени.
Синтаксис
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