Convert week number to month (VB 6)

Private Sub WeektoMonth_01() 'Start with week in which January 1 occurs

Dim FirstDate As Date ' Declare variables.

Dim IntervalType As String

Dim WeekNumber As Integer

Dim Msg

IntervalType = "ww" ' "ww" specifies weeks as interval.

FirstDate = DateSerial(Year(Now), 1, 1)

WeekNumber = InputBox("Enter number of weeks to add")

Msg = "Month of week " & WeekNumber & " is " & Month(DateAdd(IntervalType, WeekNumber - 1, FirstDate))

MsgBox Msg

End Sub