Delphi Programming RTL Reference|By Category|Alphabetically|By Unit
procedure DecodeTime(Date: TDateTime; var Hour, Min, Sec, MSec: Word);;
Separates Hour, Minute, Second, and MilliSecond values from a TDateTime value.
If the given TDateTime value is less than or equal to zero, than hour, minute, second, and millisecond return parameters are all set to zero.
var Hour, Min, Sec, MSec : Word;
DecodeTime(Date, Hour, Min, Sec, MSec);
showmessage(
'The time is Second ' + IntToStr(Sec) +
' of Minute ' + IntToStr(Min) +
' of Hour ' + IntToStr(Hour));
|
DecodeDate
|
Free Delphi code snippet inside every Delphi Newsletter! |
|
|
|
Got some code to share? Got a question? Need some help? |
|
|
