| 数字→漢数字変換を行うユーザー定義関数 |
|
対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12
（オリジナル作成日 : 1997/02/16）
概 要
半角数字を漢数字へ変換するユーザー定義関数です。
構 文
Num2Kan(Number)
解 説
Num2Kan 関数の戻り値は文字列型 (String)です。
Num2Kan 関数では次の引数を使用します。
| 引 数 | 内 容 |
|---|---|
| Number | 数字、はるいは数値を返す関数を指定します。 |
引数に数値以外のものがが与えられた場合、この関数は長さ 0 の文字列を返します。
ユーザー定義関数
Function Num2Kan(ByVal argNum) As String
Dim stNum As String
Dim retNum As String
Dim iCh As Integer
If IsNull(argNum) Or argNum = "" Then Exit Function
If Not IsNumeric(argNum) Then Exit Function
stNum = Format(argNum)
For iCh = 1 To Len(stNum)
retNum = retNum & Mid("〇一二三四五六七八九", CInt(Mid(stNum, iCh, 1)) + 1, 1)
Next
Num2Kan = retNum
End Function
