| ThisISOWeekNo Routines | 
Unit
QESBPCSDateTime
| Overloaded Variants | 
| Procedure ThisISOWeekNo(var WeekNo: Integer; var Year: Word); | 
| Procedure ThisISOWeekNo(var WeekNo, Year: Integer); | 
Declaration
Procedure ThisISOWeekNo(var WeekNo: Integer; var Year: Word);
| Parameters | 
| WeekNo | Returns the ISO-8601 Week Number in specified Year | 
| Year | Returns 4 digit year to which the Week Number applies. | 
Category
Date/Time Arithmetic Routines
Week Based Arithmetic RoutinesImplementation
 
| procedure ThisISOWeekNo (var WeekNo: Integer; var Year: Word);
begin
     Date2ISOWeekNo (ESBToday, WeekNo, Year);
End; | 
Declaration
Procedure ThisISOWeekNo(var WeekNo, Year: Integer);Implementation
 
| procedure ThisISOWeekNo (var WeekNo, Year: Integer);
begin
     Date2ISOWeekNo (ESBToday, WeekNo, Year);
End; | 
|  |