Sub GetWeekNumber(ticks)
currentThursday = GetThursdayOfWeek(ticks)
firstThursday = GetThursdayOfWeek(DateAdd(0, DateYear(currentThursday) - 1, 0, 3))
return (currentThursday - firstThursday ) / cTicksPerDay / 7 + 1
End Sub
Sub GetThursdayOfWeek(ticks)
select DateDayofWeek(ticks)
case "Monday"
diff = 3
case "Tuesday"
diff = 2
case "Wednesday"
diff = 1
case "Thursday"
diff = 0
case "Friday"
diff = -1
case "Saturday"
diff = -2
case "Sunday"
diff = -3
end select
return DateAdd(ticks,0,0,diff)
End Sub