Date2ISOWeekEnhStr Function
Returns Date as a Enhanced Format for ISO Calendar Week/Day: YYYY-Www-D where YYYY is year, 'W' is literal, ww is weekno and D is the ISO Day of Week - Monday is First Day.

Unit
QESBPCSDateTime

Declaration
Function Date2ISOWeekEnhStr(const DT: TDateTime): string;

Parameters
DT Date to process.

Category
Week Based Arithmetic Routines
Date/Time Conversion Routines

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com