半角数字を漢数字に変換する方法

Accessのレポートの話。

やはり、フォーマルな案内文を送るときの住所や名前は縦書きが好まれるようで、

Accessのレポートを使って、顧客に送る封筒を作成することに。

しかし、

DBの中の住所はすべて横書き、数字は算用数字（全角英数）でそのまま縦書きで使えない。

なので、変換する必要があるということで、

こちらの

ページを参考にさせていただいた。

いや、パク・・お借りしたｗ

して、変換部分は以下のように

----------------------------------------

Const cstrNum As String = "０１２３４５６７８９－"
Const cstrKanjiNum As String = "〇一二三四五六七八九ー"

----------------------------------------

10以上の数字の変換（つまり、十丁目とか二十二丁目など）で“一〇”となってしまうのが総務さんの好みに合わないようだけれど、まあ自分にSkillも時間もないということでｗ

T'sWareさんには感謝。

Access VBAプログラミング開発工房入門・基礎編

STARDUST can be found.