ESBEncodeTime Function
An Enhanced EncodeTime that includes Exception Handling.

Unit
QESBPCSDateTime

Declaration
Function ESBEncodeTime(const Hour, Min, Sec, MSec: Word): TDateTime;

Category
Date/Time Conversion Routines

Implementation

function ESBEncodeTime (const Hour, Min, Sec, MSec: Word): TDateTime;
begin
     try
          Result := EncodeTime (Hour, Min, Sec, MSec)
     except
          raise EConvertError.Create (rsInvalidTime);
     end;
End;


HTML generated by Time2HELP
http://www.time2help.com