Week Number
Try this code in the After Update Event of the Date TextBox or the
On Click Event of a Command Button:
******
Dim t_Day As Double
t_Day = Day(InputDate)
Select Case t_Day
Case 1, 2, 3, 4, 5, 6, 7, 8
Me.txtboxweeknumber = 1
Case 9, 10, 11, 12, 13, 14, 15, 16...