CrystalReports9での和暦漢数字年号を横書きの時には算用数字にする

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

Local StringVar target := {Old.JapanYear};
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");