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

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


概 要

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

【例】

"東京都千代田区一番町4−10−20" → "東京都千代田区一番町四ー一○ー二○"

 

構 文

 AddressNum2Knj(String)

 

解 説

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

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

引 数 内     容
String 変換する文字列式。

引数に 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([住所])

 

補 足

 

改定履歴


目次へ戻る