| Date2ISOWeekEnhStr Function |
Unit
QESBPCSDateTime
Declaration
Function Date2ISOWeekEnhStr(const DT: TDateTime): string;
| Parameters |
| DT | Date to process. |
Category
Week Based Arithmetic Routines
Date/Time Conversion RoutinesImplementation
function Date2ISOWeekEnhStr (const DT: TDateTime): string;
var
WeekNo: Integer;
Year: Integer;
Hold: Boolean;
begin
Date2ISOWeekNo (DT, WeekNo, Year);
Hold := ESBBlankWhenZero;
ESBBlankWhenZero := False;
try
Result := Int2ZStr (Year, 4) + '-W' + Int2ZStr (WeekNo, 2) + '-'
+ Int2EStr (ISODayOfWeek (DT));
finally
ESBBlankWhenZero := Hold;
end;
End; |
|
|