| Date2ISOStr Function | 
Unit
QESBPCSDateTime
Declaration
Function Date2ISOStr(const DT: TDateTime): string;
Description
Zero Padded.
| Parameters | 
| DT | Date to process. | 
Category
Date/Time Conversion RoutinesImplementation
 
| function Date2ISOStr (const DT: TDateTime): string;
var
     D, M, Y: Integer;
     Hold: Boolean;
begin
     OptDecodeDateI (DT, Y, M, D);
     Hold := ESBBlankWhenZero;
     ESBBlankWhenZero := False;
     try
          Result := Int2ZStr (Y, 4) + Int2ZStr (M, 2)
               + Int2ZStr (D, 2);
     finally
          ESBBlankWhenZero := Hold;
     end;
End; | 
|  |