住所中の算用数字を漢数字に変換するユーザー定義関数

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 （オリジナル作成日 : 1998/11/26）

概　要

　住所の中に含まれている算用数字を漢数字へ変換するユーザー定義関数です。
　また、"−" 等の変換も行います。

【例】

"東京都千代田区一番町４−１０−２０"　→　"東京都千代田区一番町四ー一○ー二○"

構　文

　AddressNum2Knj(String)

解　説

AddressNum2Knj 関数の戻り値は文字列型 (String)です。

AddressNum2Knj 関数では次の引数を使用します。

引数に Null または長さ 0 の文字列が与えられた場合、この関数は長さ 0 の文字列を返します。

ユーザー定義関数

Public Function AddressNum2Knj(argAddress As Variant) As String
Dim strAddress As String
Dim strChar As String
Dim strarrKan As Variant
Dim lngPos As Long

If IsNull(argAddress) Or argAddress = "" Then Exit Function
strarrKan = Array("〇", "一", "二", "三", "四", "五", "六", "七", "八", "九")

For lngPos = 1 To Len(argAddress)
    strChar = Mid(argAddress, lngPos, 1)
    If IsNumeric(StrConv(strChar, vbNarrow)) Then
        strAddress = strAddress & strarrKan(StrConv(strChar, vbNarrow))
    ElseIf strChar = "−" Or strChar = "-" Then
        strAddress = strAddress & "ー" 
    Else
        strAddress = strAddress & strChar
    End If
Next
AddressNum2Knj = strAddress
End Function

使　用　例

クエリーの演算フィールドで使用する例です。

フィールド:|表示用住所: AddressNum2Knj([住所])

補　足

• プロシージャ中の半角変換後の IsNumeric 判定や、"−" を全角と半角で判断していますが、現行バージョン(2003 まで)では特に必要がありませんが、念のために行っています。

改定履歴

• 1999/09/12 2000 の記述追加
• 1999/09/12 2002 の補足変更
• 2003/11/03 2003 の補足変更

目次へ戻る