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