Date2ISOEnhStr Function |
Unit
QESBPCSDateTime
Declaration
Function Date2ISOEnhStr(const DT: TDateTime): string;
Description
Zero Padded.
Parameters |
DT | Date to process. |
Category
Date/Time Conversion RoutinesImplementation
function Date2ISOEnhStr (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; |
|