Function to obtain the year, month, day, hour, minute, second and millisecond values from the date/time value.

 

Syntax

procedure DecodeDateTime(dt: double; var wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliSec: word);

 

Parameters and return values

Parameter

Type

Value

dt

double

date/time value;

wYear

word

return value, year;

wMonth

word

return value, month;

wDay

word

return value, day;

wHour

word

return value, hours;

wMinute

word

return value, minutes;

wSecond

word

return value, seconds;

wMilliSecond

word

return value, milliseconds.

 

Function result

Year, month, day, hour, minute, second, millisecond values that correspond to the specified date.

 

Example

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.

Script work result

[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

 

See also

IntToStr
mLogScript

Now