CrystalReports9での和暦漢数字年号を横書きの時には算用数字にする
いつもながらのチカラワザ、、、15年くらいたっても進化しないのはあたりまえ。
15年前のCrystalReportsで作っているからであります。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 |
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"); |