From Clomosy Docs
procedure DecodeTime(const DateTime: TclDateTime; var Hour, Min, Sec, MSec: Word);
The DecodeTime procedure extracts the hours, minutes, seconds, and milliseconds from a given TclDateTime type value.
It stores the values in output variables: Hour, Min, Sec and MSec.
Example
TRObject Syntax
var
myHour, myMin, mySec, myMilli : Word;
{
DecodeTime(Now, myHour, myMin, mySec, myMilli);
ShowMessage('Time now = '+TimeToStr(Now));
ShowMessage('Hour = '+IntToStr(myHour));
ShowMessage('Minute = '+IntToStr(myMin));
ShowMessage('Second = '+IntToStr(mySec));
ShowMessage('MilliSec = '+IntToStr(myMilli));
}
Base Syntax
var
myHour, myMin, mySec, myMilli : Word;
begin
DecodeTime(Now, myHour, myMin, mySec, myMilli);
ShowMessage('Time now = '+TimeToStr(Now));
ShowMessage('Hour = '+IntToStr(myHour));
ShowMessage('Minute = '+IntToStr(myMin));
ShowMessage('Second = '+IntToStr(mySec));
ShowMessage('MilliSec = '+IntToStr(myMilli));
end;
Output:
Time Now = 16:02:07
Hour = 16
Minute = 2
Second = 7
MilliSec = 807