月名を取得する – Excelメモ

今回は月名の取得についてメモしておきます。

MonthName関数を使う

MonthName関数で指定した月を示す文字列を取得することができます。

実行プログラム

Sub Sample8_3_1()

    Dim intM  As Integer

    intM = Month(Now)  ' 現在日時から月を取得
    Debug.Print MonthName(Month:=intM, abbreviate:=False)
    Debug.Print MonthName(Month:=intM, abbreviate:=True)

End Sub

Sub Sample8_3_1()

Dim intM As Integer

intM = Month(Now) ' 現在日時から月を取得

Debug.Print MonthName(Month:=intM, abbreviate:=False)

Debug.Print MonthName(Month:=intM, abbreviate:=True)

End Sub

実行後

『Cstr(intM) & “月”』と同じ結果になります。
abbreviateに”True”を指定すると、MonthName関数を使う必要のない結果になります。

Format関数を使う

Format関数でも、指定した月を示す文字列を取得することができます。

実行プログラム

Sub Sample8_3_2()

    Debug.Print Format(Now, "mmm")
    Debug.Print Format(Now, "mmmm")
    Debug.Print Format(Now, "oooo")

End Sub

Sub Sample8_3_2()

Debug.Print Format(Now, "mmm")

Debug.Print Format(Now, "mmmm")

Debug.Print Format(Now, "oooo")

End Sub

実行結果