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