STARDUST can be found.

ごくたまに振り返るためのMEMO書きです。

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

Accessのレポートの話。

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

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

しかし、

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

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

こちらの

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

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

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

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

  Const cstrNum As String = "0123456789-"
  Const cstrKanjiNum As String = "〇一二三四五六七八九ー"

  • 半角 → 全角
  • 全角ゼロ“0” → 漢数字ゼロ“〇”
  • ハイフンを追加

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

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

T'sWareさんには感謝。

*

*

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

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

  • 作者: 緒方 典子
  • 出版社/メーカー: ソシム
  • 発売日: 2004/12
  • メディア: 単行本

Access VBAプログラミング開発工房 データベース構築実践編

Access VBAプログラミング開発工房 データベース構築実践編

  • 作者: 緒方 典子
  • 出版社/メーカー: ソシム
  • 発売日: 2005/11
  • メディア: 単行本