ThisISOWeekNo Routines
Returns the ISO-8601 WeekNo of the current Date (System Date).

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 Routines

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com