【VBA】英語読みの月を数字に変換する

英語読みの月を数字に変換する関数です。「January」のとき「01」、「February」のとき「02」のように変換します。

関数概要
実行例
ダウンロード
使用方法
ソースコード
ソースコード説明

関数概要

関数名： FNCMonthStr2Num_English
入力引数； P_IN_MonthStr ：月を表す英語。 January, Feburary, ...
出力引数： P_OUT_MonthNumber ： 1 や 2 など、月の数字が設定されます。
返り値：リターンコードが返却されます。

実行例

P_IN_MonthStr = January のとき、 P_OUT_MonthNumber = 01 が返却されます。
P_IN_MonthStr = February のとき、 P_OUT_MonthNumber = 02 が返却されます。

ダウンロード

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

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

UEVBACommonClass.cls

使用方法

        Dim UEVBA as UEVBACommonClass
        UEVBA = new UEVBACommonClass
        Dim MonthNumber As String
        If UEVBA.FNCMonthStr2Num_English("January", MonthNumber) <> UEVBA.ReturnNormal Then
            Err.Raise Number:=8, Description:="FNCMonthStr2Num_English Error"
        End If
        MsgBox(MonthNumber)

ソースコード

    '-----------------------------------------------------------------
    ' 英語読みの月を数字に変換する
    '-----------------------------------------------------------------
    Function FNCMonthStr2Num_English(P_IN_MonthStr As String, P_OUT_MonthNumber As String) As Integer
    On Error GoTo ErrorHandler
        FNCMonthStr2Num_English = Me.ReturnError
        P_OUT_MonthNumber = "00"
        Select Case P_IN_MonthStr
            Case "January"
                P_OUT_MonthNumber = "01"
            Case "February"
                P_OUT_MonthNumber = "02"
            Case "March"
                P_OUT_MonthNumber = "03"
            Case "April"
                P_OUT_MonthNumber = "04"
            Case "May"
                P_OUT_MonthNumber = "05"
            Case "June"
                P_OUT_MonthNumber = "06"
            Case "July"
                P_OUT_MonthNumber = "07"
            Case "August"
                P_OUT_MonthNumber = "08"
            Case "September"
                P_OUT_MonthNumber = "09"
            Case "October"
                P_OUT_MonthNumber = "10"
            Case "November"
                P_OUT_MonthNumber = "11"
            Case "December"
                P_OUT_MonthNumber = "12"
        End Select
        If P_OUT_MonthNumber = "00" Then
            FNCMonthStr2Num_English = Me.ReturnWarning
            End
        End If
        FNCMonthStr2Num_English = Me.ReturnNomal
        Exit Function
    ErrorHandler:
        MsgBox Err.Number & ":" & Err.Description, vbCritical, "エラー"
        FNCMonthStr2Num_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==)