| 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; |
|
|