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