Date2ISOWeekOnlyStr Function |
Unit
QESBPCSDateTime
Declaration
Function Date2ISOWeekOnlyStr(const DT: TDateTime): string;
Parameters |
DT | Date to process. |
Category
Week Based Arithmetic Routines
Date/Time Conversion RoutinesImplementation
function Date2ISOWeekOnlyStr (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); finally ESBBlankWhenZero := Hold; end; End; |
|