UnitQESBPCSDateTime
DeclarationFunction ThisWeekNo: Integer;
CategoryDate/Time Arithmetic RoutinesWeek Based Arithmetic RoutinesImplementation
function ThisWeekNo: Integer; begin Result := Date2WeekNo (ESBToday); End;