構文
MonthName(Month , [abbreviate])
Month・・・・・月名を数値で入力(1~12)※1~12以外はエラー
abbreviate・・・False→月を付与【規定値】True→月を省略【省略可能】
abbreviate・・・False→月を付与【規定値】True→月を省略【省略可能】
MonthName関数のサンプルコード
Public Sub sample() '■標準の使い方 Debug.Print MonthName(1) '1月 Debug.Print MonthName(1, False) '1月 Debug.Print MonthName(1, True) '1 ' '■本日日付から取得 Debug.Print MonthName(Month(Now)) '8月 '■エラーが発生する場合(ありえない月を指定する) '実行時エラー '5'プロシージャの呼び出し、または引数が不正です。 Debug.Print MonthName(0) Debug.Print MonthName(13) '■文字列で渡しても数字だけならエラーにならず進む。 Debug.Print MonthName("2") '2月 Dim str As String: str = "2" Debug.Print MonthName(str) '2月 '■数値以外を渡すとエラー '実行時エラー '13':型が一致しません。 Debug.Print MonthName("あいうえお") End Sub
注意点
- 日本語環境の場合は「8月」or「8」といった表記ですが、
英語環境 の場合は「August」 or 「Aug」といった表記となります。
コメント