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

いつもながらのチカラワザ、、、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");

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","一");