Получение переменной типа дата/время из переданных значений года, месяца, дня, часов, минут, секунд и миллисекунд.
function EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliSec: word): double;
Параметр |
Тип |
Значение |
---|---|---|
wYear |
word |
год; |
wMonth |
word |
месяц; |
wDay |
word |
день; |
wHour |
word |
часы; |
wMinute |
word |
минуты; |
wSecond |
word |
секунды; |
wMilliSec |
word |
миллисекунды. |
Число типа double, дата.
var
dt: double;
begin
dt := EncodeDate(1979, 10, 9, 17, 54, 36, 769);
mLogScript(FormatDateTime('dd.mm.yyyy', dt), '');
dt := IncYear(dt, 37);
mLogScript(FormatDateTime('dd.mm.yyyy', dt), '');
end.
[14:50:37] (Log "EncodeDate"): 09.10.1979
[14:50:37] (Log "EncodeDate"): 09.10.2016