VBA DateSerial関数日付データを求める　

実務上では、月末日付や翌月末日付を求めることが多いため、今日は、その求め方を紹介しましょう。

DateSerial関数で日付データを求める

構文

DateSerial(year, month, day)

Sub test()

    Dim mydate(2) As Date

    '翌月1日の日付
    mydate(0) = DateSerial(Year(Date), Month(Date) + 1, 1)
    '今月末の日付
    mydate(1) = DateSerial(Year(Date), Month(Date) + 1, 0)
    '翌月末の日付
    mydate(2) = DateSerial(Year(Date), Month(Date) + 2, 0)


    MsgBox "翌月1日の日付は：" & mydate(0) & vbCrLf & _
         "今月末の日付は：" & mydate(1) & vbCrLf & _
             "翌月末の日付は：" & mydate(2)

End Sub

実行結果

Year(Date)は、Year関数で本日の日付から年を抽出のことです。Month(Date)は、Month関数で本日の日付から月を抽出のことです。

翌月1日の日付は、DateSerial(Year(Date), Month(Date) + 1, 1)で、その前日は、今月末の日付となります。

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る

VBA DateSerial関数 日付データを求める

VBA DateSerial関数日付データを求める　