| ThisWeekNo Function | 
Unit
QESBPCSDateTime
Declaration
Function ThisWeekNo: Integer;
Category
Date/Time Arithmetic Routines
Week Based Arithmetic RoutinesImplementation
 
| function ThisWeekNo: Integer;
begin
     Result := Date2WeekNo (ESBToday);
End; | 
|  |