英語読みの月を数字に変換する関数です。 「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処理を共通クラスとして提供しています。
以下からダウンロードが可能です。
使用方法
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
ソースコード説明
- 準備中
|