【VBA】月の数字を英語表記に変換する

月を英語表記に変換する関数です。「1」のとき「January」、「2」のとき「February」のように 変換します。

関数概要

• 関数名：FNC_MonthNum2Str_English
• 入力引数；P_IN_MonthNumber（月を表す数。1～12）
• 出力引数：P_OUT_MonthStr：January や Feburary など、月を表す英語が設定されます。
• 返り値：リターンコードが返却されます。

実行例

• P_IN_MonthNumber = 1 のとき、P_OUT_MonthStr = January が返却されます。
• P_IN_MonthNumber = 2 のとき、P_OUT_MonthStr = February が返却されます。

ダウンロード

UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。

以下からダウンロードが可能です。

UEVBACommonClass.cls

使用方法

        Dim UEVBA as UEVBACommonClass
        UEVBA = new UEVBACommonClass
        Dim NowMonth As String
        Dim MonthStr As String
        NowMonth = Month(Date)
        If UEVBA.FNCMonthNum2Str_English(NowMonth, MonthStr) <> UEVBA.ReturnNormal Then
            Err.Raise Number:=8, Description:="FNCMonthNum2Str_English Error"
        End If
        MsgBox(MonthStr)

ソースコード

    '-----------------------------------------------------------------
    '
    ' 処理概要　月を英語読みに変換する
    ' 関数名：FNCMonthNum2Str_English
    '
    ' 入力引数；P_IN_MonthNumber（月を表す数。1～12）
    ' 出力引数：P_OUT_MonthStr：January や Feburary など、月を表す英語が設定されます。
    '
    ' 返り値：リターンコードが返却されます。
    '
    '-----------------------------------------------------------------
    Function FNCMonthNum2Str_English(P_IN_MonthNumber As String, P_OUT_MonthStr) As Integer
    On Error GoTo ErrorHandler
        FNCMonthNum2Str_English = Me.ReturnError
        P_OUT_MonthStr = ""
        Select Case P_IN_MonthNumber
            Case 1
                P_OUT_MonthStr = "January"
            Case 2
                P_OUT_MonthStr = "February"
            Case 3
                P_OUT_MonthStr = "March"
            Case 4
                P_OUT_MonthStr = "April"
            Case 5
                P_OUT_MonthStr = "May"
            Case 6
                P_OUT_MonthStr = "June"
            Case 7
                P_OUT_MonthStr = "July"
            Case 8
                P_OUT_MonthStr = "August"
            Case 9
                P_OUT_MonthStr = "September"
            Case 10
                P_OUT_MonthStr = "October"
            Case 11
                P_OUT_MonthStr = "November"

            Case 12
                P_OUT_MonthStr = "December"
        End Select
        If P_OUT_MonthStr = "" Then
            FNCMonthNum2Str_English = Me.ReturnWarning
            Exit Function
        End If
        FNCMonthNum2Str_English = Me.ReturnNomal
        Exit Function
    ErrorHandler:
        MsgBox Err.Number & ":" & Err.Description, vbCritical, "エラー"
        FNCMonthNum2Str_English = Err.Number
        Exit Function
    End Function

ソースコード説明

• 準備中

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]
価格：1944円（税込、送料無料) (2019/7/23時点)

[

楽天で購入

](https://hb.afl.rakuten.co.jp/hgc/156e5f8f.d5d194cd.156e5f90.9ce91fc7/?pc=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F14714310%2F%3Fscid%3Daf_pc_bbtn&m=http%3A%2F%2Fm.rakuten.co.jp%2Fbook%2Fi%2F18413544%2F%3Fscid%3Daf_pc_bbtn&link_type=picttext&ut=eyJwYWdlIjoiaXRlbSIsInR5cGUiOiJwaWN0dGV4dCIsInNpemUiOiIyNDB4MjQwIiwibmFtIjoxLCJuYW1wIjoicmlnaHQiLCJjb20iOjEsImNvbXAiOiJkb3duIiwicHJpY2UiOjEsImJvciI6MSwiY29sIjoxLCJiYnRuIjoxfQ==)