CrystalReports9での和暦漢数字年号を横書きの時には算用数字にする（その逆もついでに）

2020.07.16 2024.03.20

いつもながらのチカラワザ、、、15年くらいたっても進化しないのはあたりまえ。
それは15年前のCrystalReports英語版で作っているからであります。

Local StringVar target := {FieldNameBBBB};
target:=Replace(target,"百","100");
target:=Replace(target,"九十九","99");
target:=Replace(target,"九十八","98");
target:=Replace(target,"九十七","97");
target:=Replace(target,"九十六","96");
target:=Replace(target,"九十五","95");
target:=Replace(target,"九十四","94");
target:=Replace(target,"九十三","93");
target:=Replace(target,"九十二","92");
target:=Replace(target,"九十一","91");
target:=Replace(target,"九十","90");
target:=Replace(target,"八十九","89");
target:=Replace(target,"八十八","88");
target:=Replace(target,"八十七","87");
target:=Replace(target,"八十六","86");
target:=Replace(target,"八十五","85");
target:=Replace(target,"八十四","84");
target:=Replace(target,"八十三","83");
target:=Replace(target,"八十二","82");
target:=Replace(target,"八十一","81");
target:=Replace(target,"八十","80");
target:=Replace(target,"七十九","79");
target:=Replace(target,"七十八","78");
target:=Replace(target,"七十七","77");
target:=Replace(target,"七十六","76");
target:=Replace(target,"七十五","75");
target:=Replace(target,"七十四","74");
target:=Replace(target,"七十三","73");
target:=Replace(target,"七十二","72");
target:=Replace(target,"七十一","71");
target:=Replace(target,"七十","70");
target:=Replace(target,"六十九","69");
target:=Replace(target,"六十八","68");
target:=Replace(target,"六十七","67");
target:=Replace(target,"六十六","66");
target:=Replace(target,"六十五","65");
target:=Replace(target,"六十四","64");
target:=Replace(target,"六十三","63");
target:=Replace(target,"六十二","62");
target:=Replace(target,"六十一","61");
target:=Replace(target,"六十","60");
target:=Replace(target,"五十九","59");
target:=Replace(target,"五十八","58");
target:=Replace(target,"五十七","57");
target:=Replace(target,"五十六","56");
target:=Replace(target,"五十五","55");
target:=Replace(target,"五十四","54");
target:=Replace(target,"五十三","53");
target:=Replace(target,"五十二","52");
target:=Replace(target,"五十一","51");
target:=Replace(target,"五十","50");
target:=Replace(target,"四十九","49");
target:=Replace(target,"四十八","48");
target:=Replace(target,"四十七","47");
target:=Replace(target,"四十六","46");
target:=Replace(target,"四十五","45");
target:=Replace(target,"四十四","44");
target:=Replace(target,"四十三","43");
target:=Replace(target,"四十二","42");
target:=Replace(target,"四十一","41");
target:=Replace(target,"四十","40");
target:=Replace(target,"三十九","39");
target:=Replace(target,"三十八","38");
target:=Replace(target,"三十七","37");
target:=Replace(target,"三十六","36");
target:=Replace(target,"三十五","35");
target:=Replace(target,"三十四","34");
target:=Replace(target,"三十三","33");
target:=Replace(target,"三十二","32");
target:=Replace(target,"三十一","31");
target:=Replace(target,"三十","30");
target:=Replace(target,"二十九","29");
target:=Replace(target,"二十八","28");
target:=Replace(target,"二十七","27");
target:=Replace(target,"二十六","26");
target:=Replace(target,"二十五","25");
target:=Replace(target,"二十四","24");
target:=Replace(target,"二十三","23");
target:=Replace(target,"二十二","22");
target:=Replace(target,"二十一","21");
target:=Replace(target,"二十","20");
target:=Replace(target,"十九","19");
target:=Replace(target,"十八","18");
target:=Replace(target,"十七","17");
target:=Replace(target,"十六","16");
target:=Replace(target,"十五","15");
target:=Replace(target,"十四","14");
target:=Replace(target,"十三","13");
target:=Replace(target,"十二","12");
target:=Replace(target,"十一","11");
target:=Replace(target,"十","10");
target:=Replace(target,"九","9");
target:=Replace(target,"八","8");
target:=Replace(target,"七","7");
target:=Replace(target,"六","6");
target:=Replace(target,"五","5");
target:=Replace(target,"四","4");
target:=Replace(target,"三","3");
target:=Replace(target,"二","2");
target:=Replace(target,"一","1");

100

101

Local StringVar target := {FieldNameBBBB};

target:=Replace(target,"百","100");

target:=Replace(target,"九十九","99");

target:=Replace(target,"九十八","98");

target:=Replace(target,"九十七","97");

target:=Replace(target,"九十六","96");

target:=Replace(target,"九十五","95");

target:=Replace(target,"九十四","94");

target:=Replace(target,"九十三","93");

target:=Replace(target,"九十二","92");

target:=Replace(target,"九十一","91");

target:=Replace(target,"九十","90");

target:=Replace(target,"八十九","89");

target:=Replace(target,"八十八","88");

target:=Replace(target,"八十七","87");

target:=Replace(target,"八十六","86");

target:=Replace(target,"八十五","85");

target:=Replace(target,"八十四","84");

target:=Replace(target,"八十三","83");

target:=Replace(target,"八十二","82");

target:=Replace(target,"八十一","81");

target:=Replace(target,"八十","80");

target:=Replace(target,"七十九","79");

target:=Replace(target,"七十八","78");

target:=Replace(target,"七十七","77");

target:=Replace(target,"七十六","76");

target:=Replace(target,"七十五","75");

target:=Replace(target,"七十四","74");

target:=Replace(target,"七十三","73");

target:=Replace(target,"七十二","72");

target:=Replace(target,"七十一","71");

target:=Replace(target,"七十","70");

target:=Replace(target,"六十九","69");

target:=Replace(target,"六十八","68");

target:=Replace(target,"六十七","67");

target:=Replace(target,"六十六","66");

target:=Replace(target,"六十五","65");

target:=Replace(target,"六十四","64");

target:=Replace(target,"六十三","63");

target:=Replace(target,"六十二","62");

target:=Replace(target,"六十一","61");

target:=Replace(target,"六十","60");

target:=Replace(target,"五十九","59");

target:=Replace(target,"五十八","58");

target:=Replace(target,"五十七","57");

target:=Replace(target,"五十六","56");

target:=Replace(target,"五十五","55");

target:=Replace(target,"五十四","54");

target:=Replace(target,"五十三","53");

target:=Replace(target,"五十二","52");

target:=Replace(target,"五十一","51");

target:=Replace(target,"五十","50");

target:=Replace(target,"四十九","49");

target:=Replace(target,"四十八","48");

target:=Replace(target,"四十七","47");

target:=Replace(target,"四十六","46");

target:=Replace(target,"四十五","45");

target:=Replace(target,"四十四","44");

target:=Replace(target,"四十三","43");

target:=Replace(target,"四十二","42");

target:=Replace(target,"四十一","41");

target:=Replace(target,"四十","40");

target:=Replace(target,"三十九","39");

target:=Replace(target,"三十八","38");

target:=Replace(target,"三十七","37");

target:=Replace(target,"三十六","36");

target:=Replace(target,"三十五","35");

target:=Replace(target,"三十四","34");

target:=Replace(target,"三十三","33");

target:=Replace(target,"三十二","32");

target:=Replace(target,"三十一","31");

target:=Replace(target,"三十","30");

target:=Replace(target,"二十九","29");

target:=Replace(target,"二十八","28");

target:=Replace(target,"二十七","27");

target:=Replace(target,"二十六","26");

target:=Replace(target,"二十五","25");

target:=Replace(target,"二十四","24");

target:=Replace(target,"二十三","23");

target:=Replace(target,"二十二","22");

target:=Replace(target,"二十一","21");

target:=Replace(target,"二十","20");

target:=Replace(target,"十九","19");

target:=Replace(target,"十八","18");

target:=Replace(target,"十七","17");

target:=Replace(target,"十六","16");

target:=Replace(target,"十五","15");

target:=Replace(target,"十四","14");

target:=Replace(target,"十三","13");

target:=Replace(target,"十二","12");

target:=Replace(target,"十一","11");

target:=Replace(target,"十","10");

target:=Replace(target,"九","9");

target:=Replace(target,"八","8");

target:=Replace(target,"七","7");

target:=Replace(target,"六","6");

target:=Replace(target,"五","5");

target:=Replace(target,"四","4");

target:=Replace(target,"三","3");

target:=Replace(target,"二","2");

target:=Replace(target,"一","1");

Local StringVar target := {FieldNameAAAA};
target := Replace(target,"70","七十");
target := Replace(target,"69","六十九");
target := Replace(target,"68","六十八");
target := Replace(target,"67","六十七");
target := Replace(target,"66","六十六");
target := Replace(target,"65","六十五");
target := Replace(target,"64","六十四");
target := Replace(target,"63","六十三");
target := Replace(target,"62","六十二");
target := Replace(target,"61","六十一");
target := Replace(target,"60","六十");
target := Replace(target,"59","五十九");
target := Replace(target,"58","五十八");
target := Replace(target,"57","五十七");
target := Replace(target,"56","五十六");
target := Replace(target,"55","五十五");
target := Replace(target,"54","五十四");
target := Replace(target,"53","五十三");
target := Replace(target,"52","五十二");
target := Replace(target,"51","五十一");
target := Replace(target,"50","五十");
target := Replace(target,"49","四十九");
target := Replace(target,"48","四十八");
target := Replace(target,"47","四十七");
target := Replace(target,"46","四十六");
target := Replace(target,"45","四十五");
target := Replace(target,"44","四十四");
target := Replace(target,"43","四十三");
target := Replace(target,"42","四十二");
target := Replace(target,"41","四十一");
target := Replace(target,"40","四十");
target := Replace(target,"39","三十九");
target := Replace(target,"38","三十八");
target := Replace(target,"37","三十七");
target := Replace(target,"36","三十六");
target := Replace(target,"35","三十五");
target := Replace(target,"34","三十四");
target := Replace(target,"33","三十三");
target := Replace(target,"32","三十二");
target := Replace(target,"31","三十一");
target := Replace(target,"30","三十");
target := Replace(target,"29","二十九");
target := Replace(target,"28","二十八");
target := Replace(target,"27","二十七");
target := Replace(target,"26","二十六");
target := Replace(target,"25","二十五");
target := Replace(target,"24","二十四");
target := Replace(target,"23","二十三");
target := Replace(target,"22","二十二");
target := Replace(target,"21","二十一");
target := Replace(target,"20","二十");
target := Replace(target,"19","十九");
target := Replace(target,"18","十八");
target := Replace(target,"17","十七");
target := Replace(target,"16","十六");
target := Replace(target,"15","十五");
target := Replace(target,"14","十四");
target := Replace(target,"13","十三");
target := Replace(target,"12","十二");
target := Replace(target,"11","十一");
target := Replace(target,"10","十");
target := Replace(target,"9","九");
target := Replace(target,"8","八");
target := Replace(target,"7","七");
target := Replace(target,"6","六");
target := Replace(target,"5","五");
target := Replace(target,"4","四");
target := Replace(target,"3","三");
target := Replace(target,"2","二");
target:= Replace(target,"1","一");

Local StringVar target := {FieldNameAAAA};

target := Replace(target,"70","七十");

target := Replace(target,"69","六十九");

target := Replace(target,"68","六十八");

target := Replace(target,"67","六十七");

target := Replace(target,"66","六十六");

target := Replace(target,"65","六十五");

target := Replace(target,"64","六十四");

target := Replace(target,"63","六十三");

target := Replace(target,"62","六十二");

target := Replace(target,"61","六十一");

target := Replace(target,"60","六十");

target := Replace(target,"59","五十九");

target := Replace(target,"58","五十八");

target := Replace(target,"57","五十七");

target := Replace(target,"56","五十六");

target := Replace(target,"55","五十五");

target := Replace(target,"54","五十四");

target := Replace(target,"53","五十三");

target := Replace(target,"52","五十二");

target := Replace(target,"51","五十一");

target := Replace(target,"50","五十");

target := Replace(target,"49","四十九");

target := Replace(target,"48","四十八");

target := Replace(target,"47","四十七");

target := Replace(target,"46","四十六");

target := Replace(target,"45","四十五");

target := Replace(target,"44","四十四");

target := Replace(target,"43","四十三");

target := Replace(target,"42","四十二");

target := Replace(target,"41","四十一");

target := Replace(target,"40","四十");

target := Replace(target,"39","三十九");

target := Replace(target,"38","三十八");

target := Replace(target,"37","三十七");

target := Replace(target,"36","三十六");

target := Replace(target,"35","三十五");

target := Replace(target,"34","三十四");

target := Replace(target,"33","三十三");

target := Replace(target,"32","三十二");

target := Replace(target,"31","三十一");

target := Replace(target,"30","三十");

target := Replace(target,"29","二十九");

target := Replace(target,"28","二十八");

target := Replace(target,"27","二十七");

target := Replace(target,"26","二十六");

target := Replace(target,"25","二十五");

target := Replace(target,"24","二十四");

target := Replace(target,"23","二十三");

target := Replace(target,"22","二十二");

target := Replace(target,"21","二十一");

target := Replace(target,"20","二十");

target := Replace(target,"19","十九");

target := Replace(target,"18","十八");

target := Replace(target,"17","十七");

target := Replace(target,"16","十六");

target := Replace(target,"15","十五");

target := Replace(target,"14","十四");

target := Replace(target,"13","十三");

target := Replace(target,"12","十二");

target := Replace(target,"11","十一");

target := Replace(target,"10","十");

target := Replace(target,"9","九");

target := Replace(target,"8","八");

target := Replace(target,"7","七");

target := Replace(target,"6","六");

target := Replace(target,"5","五");

target := Replace(target,"4","四");

target := Replace(target,"3","三");

target := Replace(target,"2","二");

target:= Replace(target,"1","一");

CrystalReports

CrystalReports で式の中で改行

VB.NET（Windowsアプリ）からWebBrowserに短縮URLを表示（bit.lyでV4のPHP）

サックス運指

カタカナにする文字起こし

厄年・九曜星

単に数字を置換するだけ（月）

『crysti32.ocx』またはその依存関係のひとつが適切に登録されていません。

改行コードを消す！には

ペーストした画像をワードプレスに投稿する⇒プラグイン不要

Lineのスタンプ

主に動作確認用。いろいろ実験＆ひとりごと

CrystalReports9での和暦漢数字年号を横書きの時には算用数字にする（その逆もついでに）

コメント

関連記事

CrystalReports で式の中で改行

CrystalReportsの不可解なRecordNumber—cstr

Crystalreportsのグループごと連番

全角の文字を半角に変えて数値型にして計算式に使う

『crysti32.ocx』またはその依存関係のひとつが適切に登録されていません。

CrystalReportsで日付（月日）を縦書きにするために、苦肉の策

単に数字を置換するだけ（月）

年忌名を英語に変換

Crystalreports 指定行数で改ページ

Archive

サックス運指

カタカナにする文字起こし

厄年・九曜星

単に数字を置換するだけ（月）

『crysti32.ocx』またはその依存関係のひとつが適切に登録されていません。

改行コードを消す！には

ペーストした画像をワードプレスに投稿する⇒プラグイン不要

Lineのスタンプ

VisualStudio2023 コントロールのプロパティが表示されない