hatena の Microsoft Access 掲示板



[7252] hatena チップ 数字を漢数字に変換 Name:tokinaito Date:2017/08/02(水) 09:17 [ 返信 ]
hatena様hatena チップには大変お世話になっております。

ところで同窓会の計画をしているのですが、住所地番がすべて

数字で記されていて、苦慮しています。

そこで下記のような関数をhatena様チップで発見しました。

ところがこれを使おうとすると、Num2Kanjiの部分がSUB又は

Functionが定義されていませんと出ます。

宜敷ご教示お願いします。

Public Function CnvKanjiNum(Ad) As String
Dim i As Long
Dim Pos As Long
Dim Num As Long

If IsNull(Ad) Then Exit Function
Pos = 1
For i = 1 To Len(Ad)
If Mid(Ad, i, 1) Like "#" Then
CnvKanjiNum = CnvKanjiNum & Mid(Ad, Pos, i - Pos)
Num = Val(Mid(StrConv(Ad, vbNarrow), i))
CnvKanjiNum = CnvKanjiNum & Num2Kanji(Num)
i = i + Len(CStr(Num))
Pos = i
End If
Next
CnvKanjiNum = CnvKanjiNum & Mid(Ad, Pos, i - Pos)
End Function


スレッド記事表示 No.7252 hatena チップ 数字を漢数字に変換 tokinaito2017/08/02(水) 09:17 [ 返信 ]
   ┣No.7253 RE:hatena チップ 数字を漢数字に変換 hatena2017/08/02(水) 09:44
   ┗No.7255 解決RE:hatena チップ 数字を漢数字に変換 tokinaito2017/08/02(水) 10:30

  




無料レンタル掲示板・日記・ブログ Progoo