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