ESBEncodeTime Function |
Unit
QESBPCSDateTime
Declaration
Function ESBEncodeTime(const Hour, Min, Sec, MSec: Word): TDateTime;
Category
Date/Time Conversion RoutinesImplementation
function ESBEncodeTime (const Hour, Min, Sec, MSec: Word): TDateTime; begin try Result := EncodeTime (Hour, Min, Sec, MSec) except raise EConvertError.Create (rsInvalidTime); end; End; |
|