ESBDecodeTime Procedure
An Enhanced EncodeTime that includes Exception Handling.

Unit
QESBPCSDateTime

Declaration
Procedure ESBDecodeTime(const Time: TDateTime; var Hour, Min, Sec, MSec: Word);

Category
Date/Time Conversion Routines

Implementation

procedure ESBDecodeTime (const Time: TDateTime; var Hour, Min, Sec, MSec: Word);
begin
     try
          DecodeTime (Time, Hour, Min, Sec, MSec)
     except
          raise EConvertError.Create (rsInvalidDateTime);
     end;
End;


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