MS Access Tips/Sample and VBA and Blog customize etc...

数値←→漢数字変換関数

数値を漢数字へ変換する関数と、逆に、漢数字を数値に変換するユーザー定義関数をです。

検索すればどちらも見つかりますが、こういうロジックを考えるのが好きなので自分で作ってみました。

Excelなら、数値を漢数字へ変換するのは、NUMBERSTRING関数・TEXT関数 で可能です。

数値漢数字変換関数タイトル

難易度:

数値→漢数字変換関数

標準モジュールに下記の関数を作成してください。

千の単位が 1 の場合、"一千" と返すようにしていますが、これが不要な場合は、
コード中の (i = 2 Or i = 3) の部分を (i >= 2) に書き換えてください。

数値→漢数字変換関数(大字を含む)

法的な文書(例えば戸籍や会計、領収書や登記など)で使われる大字を含む漢数字に変換する関数です。

大字 (数字) - Wikipedia

「佰」「阡」を使ってますが、現在では使わないらしいですので、その場合は、「百」「千」に置き換えてください。

漢数字→数値変換関数

漢数字を数値(通貨型)に変換します。ただし、最大は、
九百二十二兆三千三百七十二億三百六十八万五千四百七十七
です。これ以上の漢数字を引数にするとオーバーフローエラーになります。

大字を含むものでも変換可能です。


拍手する

3 Comments

igachan says..."別のプロシージャーが必要ですか?"

お世話になっております。
30 を 三十 と 三〇 に表示分けをするときは

コード中の (i = 2 Or i = 3) の部分を (i >= 2) に書き換えてください。  とありますが、両方使いたいときはどのようにすればよろしいですか?

使用例は 第30回 →  第三十三回大会 と
      住所等の番地で 45番地 →  四五番地(縦書きなので)

 としたいのですが・・・プロシージャー名を替えて共通変数を揃えたりしてみたのですが何も表示されませんでした・・・

2014.04.05 22:19 | URL | #- [edit]
hatena says..."re:別のプロシージャーが必要ですか?"

>       住所等の番地で 45番地 →  四五番地(縦書きなので)
>
>  としたいのですが・・・

下記のページの Num2KanjiNum をご利用ください。

特定文字の変換関数 - hatena chips
http://hatenachips.blog34.fc2.com/blog-entry-62.html

2014.04.06 02:33 | URL | #5uE6dEgY [edit]
igachan says..."ありがとうございます。"

ありがとうございます。無事に変換されました。

2014.04.06 09:52 | URL | #- [edit]

Leave a reply






Trackbacks

trackback URL
http://hatenachips.blog34.fc2.com/tb.php/393-2c800108
該当の記事は見つかりませんでした。