ESBEncodeDate Function
An Enhanced EncodeDate that includes Exception Handling.

Unit
QESBPCSDateTime

Declaration
Function ESBEncodeDate(const Year, Month, Day: Word): TDateTime;

Description
Use OptEncodeDateI or OptEncodeDateW - this routine has been kept for backward compatibility.

Category
Date/Time Conversion Routines

Implementation

function ESBEncodeDate (const Year, Month, Day: Word): TDateTime;
begin
     try
          Result := EncodeDate (Year, Month, Day)
     except
          raise EConvertError.Create (rsInvalidDate);
     end;
End;


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