月末の日付（末日）を取得する

Private Sub Command1_Click()

    '月末を取得したい日付
    Dim dat As Date
    
    dat = Text1.Text
    
    '月末を取得する
    Dim endDate As Date
    
    '1.翌月の月初を求める
    endDate = Format(DateAdd("m", 1, dat), "yyyy/mm/01")
    '2.月初の1日前は月末
    endDate = DateAdd("d", -1, endDate)
    
    MsgBox Text1.Text & "の月末は" & endDate & "です"
End Sub

ツイート