【VBA】Get The beginning and end of this month

You can get
“The beginning and end of this month”！

Use the following function:
　Date function
　Month function
　Year function
　DateSerial function

Contents

VBA Code
Result
FYI

VBA Code

As an example, get The beginning and end of this month.

Option Explicit

Sub sampleProc()
    'Get "beginning of this month"
    MsgBox (DateSerial(Year(Date), Month(Date), 1))
    'Get "end of this month"
    MsgBox (DateSerial(Year(Date), Month(Date) + 1, 0))
End Sub

Get “beginning of this month”(Line 5).

Get “end of this month”(Line 7).

Result

You got “The beginning and end of this month”！
※Due to the Excel settings, the result is in Japanese notation.

FYI

For more information about following, see the following official online manual:

●Date function

Date function (Visual Basic for Applications)

Office VBA reference topic

●Month function

Month function (Visual Basic for Applications)

Office VBA reference topic

●Year function

Year function (Visual Basic for Applications)

Office VBA reference topic

●DateSerial function

DateSerial function (Visual Basic for Applications)

Office VBA reference topic