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