type != 'date';
		#date = (date: #date, -format='%Y-%m-%d');
	/if;

	if:#date -> type != 'date';
		Fail: 8020, 'Submitted date not of date type';
	/if;


	Local:'theDate' = (local:'date') + (Duration:7200);

	Local:'theYear' = (#theDate->Year);

	Local:'firstDateofYear' = (Date:-Month = 1, -Day = 1, -Year = #theYear, -Time = '04:00:00');
	Local:'firstDayofYear' = (#firstDateofYear->DayOfWeek);

	if:(#firstDayofYear <= 5) && (#firstDayofYear != 1);
		Local:'startDate'= (Date_Subtract:(#firstDateofYear), -Day = (#firstDayofYear - 2));
	else: (#firstDayofYear == 1);
		Local:'startDate' = (Date_Add:(#firstDateofYear), -Day = (1));
	else;
		Local:'startDate' = (Date_Add:(#firstDateofYear), -Day = (9 - #firstDayofYear));
	/if;

	Local:'DayinWeek' = (#theDate->DayOfWeek);

	if:(#DayinWeek != 1);
		Local:'firstDateinWeek' = (Date_Subtract:(#theDate), -Day = (#DayinWeek - 2));
	else;
		Local:'firstDateinWeek' = (Date_Subtract:(#theDate), -Day = 6);
	/if;

	Local:'theWeeksBetween' = (Date_Difference:#firstDateinWeek, #startDate, -Week) + 1;

	if:#theWeeksBetween == 0;
		#theWeeksBetween = jina_weekNum:(Date_Subtract:(#theDate), -Day = 1);
	/if;

	if:(#theWeeksBetween == 53) && ((date:#firstDateinWeek) >= (Date:-Month = 12, -Day = 29, -Year = #theYear, -Time = '04:00:00'));
		#theWeeksBetween = 1;
	/if;

	Return: #theWeeksBetween;

/Define_Tag;
	
?>