| Date2ISOWeekStr Function | 
Unit
QESBPCSDateTime
Declaration
Function Date2ISOWeekStr(const DT: TDateTime): string;
| Parameters | 
| DT | Date to take year from. | 
Category
Week Based Arithmetic Routines
Date/Time Conversion RoutinesImplementation
 
| function Date2ISOWeekStr (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; | 
|  |