【VBA】スペイン語読みの月を数字に変換する

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

関数概要

  • 関数名: FNCMonthStr2Num_Spanish
  • 入力引数; P_IN_MonthStr : 月を表すスペイン語。 Enero, Febrero, ...
  • 出力引数: P_OUT_MonthNumber : 1 や 2 など、月の数字が設定されます。
  • 返り値:リターンコードが返却されます。

実行例

  • P_IN_MonthStr = Enero のとき、 P_OUT_MonthNumber = 01 が返却されます。
  • P_IN_MonthStr = Febrero のとき、 P_OUT_MonthNumber = 02 が返却されます。

ダウンロード

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

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

UEVBACommonClass.cls

使用方法


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

ソースコード


'-----------------------------------------------------------------
' スペイン語読みの月を数字に変換する
'-----------------------------------------------------------------
Function FNCMonthStr2Num_Spanish(P_IN_MonthStr As String, P_OUT_MonthNumber As String) As String
On Error GoTo ErrorHandler
    FNCMonthStr2Num_Spanish = Me.ReturnError
    P_OUT_MonthNumber = "00"
    Select Case P_IN_MonthStr
        Case "Enero"
            P_OUT_MonthNumber = "01"
        Case "Febrero"
            P_OUT_MonthNumber = "02"
        Case "Marzo"
            P_OUT_MonthNumber = "03"
        Case "Abril"
            P_OUT_MonthNumber = "04"
        Case "Mayo"
            P_OUT_MonthNumber = "05"
        Case "Junio"
            P_OUT_MonthNumber = "06"
        Case "Julio"
            P_OUT_MonthNumber = "07"
        Case "Agosto"
            P_OUT_MonthNumber = "08"
        Case "Septiembre"
            P_OUT_MonthNumber = "09"
        Case "Octubre"
            P_OUT_MonthNumber = "10"
        Case "Noviembre"
            P_OUT_MonthNumber = "11"
        Case "Diciembre"
            P_OUT_MonthNumber = "12"
    End Select
    If P_OUT_MonthNumber = "00" Then
        FNCMonthStr2Num_Spanish = Me.ReturnWarning
        End
    End If
    FNCMonthStr2Num_Spanish = Me.ReturnNomal
    Exit Function
ErrorHandler:
    MsgBox Err.Number & ":" & Err.Description, vbCritical, "エラー"
    FNCMonthStr2Num_Spanish = Err.Number
    Exit Function
End Function

ソースコード説明

  • 準備中
[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

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

返信を残す

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