【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時点)

返信を残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です