月の第何週目かを調べる方法です。

＜考え方＞

WEEKNUM関数を使えば、OK。

※週の基準は、日曜日スタートは１、2は月曜日スタートになります。 

あとは、必要に応じて　

＜コード＞

 

 

Sub 日付input後､週を返す()

Dim input1 As Date, input2 As String

Do
input1 = InputBox("日付をinputして下さい。")
Loop Until IsDate(input1)

input2 = WorksheetFunction.WeekNum(input1, 2) _
- WorksheetFunction.WeekNum(DateSerial(Year(input1), Month(input1), 1), 2) + 1

MsgBox "inputされた日の月は 第 " & input2 & " 週目です"

End Sub

＜実行例＞

1月1日input時には、下記の表示となります。

-----------おまけ-------------------------------------------------------------------

＜コード＞

Sub 今日が本年の何週目かを表示する()

MsgBox "今日は　本年の　" & DatePart("ww", Date) & "　週目です"

End Sub

今日（1月28日の場合）↓

[ユーザー定義で、年月日 + 曜日　表示ができますよ♪]