Excel VBA 質問スレ Part74

[90 デフォルトの名無しさん (ｽﾌｯ Sdaf-bp1O) 2021/12/27(月) 00:30:35.81 ID:FIuz8AHod]

>>84
年またぎの処理はしてない
やりたかったら先に3/31を引いて1/1始まりに補正するのが一番簡単だと思う

Sub Macro1()
　　Dim d As Date
　　Dim w As Integer

　　d = DateValue("12/28")　　'求めたい日
　　w = Int((d - DateValue("3/31") + 6) / 7)　　' 4/1基準で何週目か
　　Debug.Print w
End Sub