| 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; |
|
|