Decode a TDateTime to a hour,minute,second,millisec quartet.
Source position: datih.inc line 130
procedure DecodeTime( |
Time: TDateTime; |
out Hour: Word; |
out Minute: Word; |
out Second: Word; |
out MilliSecond: Word |
); |
DecodeTime decodes the hours, minutes, second and milliseconds stored in Time, and returns them in the Hour, Minute and Second and MilliSecond variables.
None.
|
Encode a Hour,Min,Sec,millisec to a TDateTime value. |
|
|
Decode a TDateTime to a year,month,day triplet. |
Program Example10; { This program demonstrates the DecodeTime function } Uses sysutils; Var HH,MM,SS,MS: Word; Begin DecodeTime(Time,HH,MM,SS,MS); Writeln (format('The time is %d:%d:%d.%d',[hh,mm,ss,ms])); End.