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