Date2FormatStr Function |
Unit
QESBPCSDateTime
Declaration
Function Date2FormatStr(const DT: TDateTime; const Format: string): string;
Description
If ESBBlankWhenZero is true and the Date is Zero, then an Empty String will be returned.
If an error occurs an Empty String is Returned. If ESBRaiseDateError is true then an Exception is raised if a Date Conversion error occurs.
Parameters |
DT | Date/Time to Convert. |
Format | the Date Format to use, eg 'DD/MM/YYYY'. |
Category
Date/Time Conversion RoutinesImplementation
function Date2FormatStr (const DT: TDateTime; const Format: string): string; begin try if ESBBlankWhenZero and (abs (DT) < OneDTMilliSecond) then Result := '' else DateTimeToString (Result, Format, DT); except Result := ''; if ESBRaiseDateError then raise; end; End; |
|