put the code into the form
usage:
text6 = getWeekNo("8/1/12")
text8 = getMonFromWeekNo(12)
Code:
Public Function getWeekNo(ByVal pvDate)
Dim vDat
vDat = getMon(pvDate)
getWeekNo = DatePart("ww", vDat, vbMonday, vbFirstJan1)
End Function
Public Function getMonFromWeekNo(ByVal pvNum)
Dim vDat
vDat = DateAdd("ww", pvNum, DateSerial(Year(Date), 1, 1))
getMonFromWeekNo = getMon(vDat)
End Function
Public Function getMon(ByVal pvDate) As String
Dim vTarg, vDate, vD
Dim i As Byte
vTarg = vbMonday
vD = pvDate
i = Format(vD, "w")
Select Case True
Case i = vTarg
vDate = pvDate
Case i < vTarg
vDate = DateAdd("d", 1, vD)
Case Else
vDate = DateAdd("d", vTarg - i, vD)
End Select
getMon = vDate
End Function