CrystalReportsで日付（月日）を縦書きにするために、苦肉の策
年月でグループ化したデータを縦書きにするために、、、、出力されるデータがyyyy/mmなので強制的に日本語和暦漢字に置換する方が早い
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Local StringVar target
:=
totext(GroupName
({フィールド},
"monthly")); target
:=
Replace(target,"2019","令和元年"); target
:=
Replace(target,"2020","令和二年"); target
:=
Replace(target,"2021","令和三年"); target
:=
Replace(target,"2022","令和四年"); target
:=
Replace(target,"2023","令和五年"); target
:=
Replace(target,"2024","令和六年"); target
:=
Replace(target,"2025","令和七年"); target
:=
Replace(target,"2026","令和八年"); target
:=
Replace(target,"2027","令和九年"); target
:=
Replace(target,"2028","令和十年"); target
:=
Replace(target,"/12"," 十二月"); target
:=
Replace(target,"/11"," 十一月"); target
:=
Replace(target,"/10"," 十月"); target
:=
Replace(target,"/09"," 九月"); target
:=
Replace(target,"/08"," 八月"); target
:=
Replace(target,"/07"," 七月"); target
:=
Replace(target,"/06"," 六月"); target
:=
Replace(target,"/05"," 五月"); target
:=
Replace(target,"/04"," 四月"); target
:=
Replace(target,"/03"," 三月"); target
:=
Replace(target,"/02"," 二月"); target
:=
Replace(target,"/01"," 一月"); |
月が数字だけの場合
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Local StringVar target
:=
totext({Old2.Tuki}); target
:=
Replace(target,"12.00"," 十二月"); target
:=
Replace(target,"11.00"," 十一月"); target
:=
Replace(target,"10.00"," 十月"); target
:=
Replace(target,"9.00"," 九月"); target
:=
Replace(target,"8.00"," 八月"); target
:=
Replace(target,"7.00"," 七月"); target
:=
Replace(target,"6.00"," 六月"); target
:=
Replace(target,"5.00"," 五月"); target
:=
Replace(target,"4.00"," 四月"); target
:=
Replace(target,"3.00"," 三月"); target
:=
Replace(target,"2.00"," 二月"); target
:=
Replace(target,"1.00"," 一月"); |
日が数字だけの場合
|
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 |
Local StringVar target
:=
totext({Old2.hi}); target
:=
Replace(target,"31.00"," 三十一日"); target
:=
Replace(target,"30.00"," 三十日"); target
:=
Replace(target,"29.00"," 二十九日"); target
:=
Replace(target,"28.00"," 二十八日"); target
:=
Replace(target,"27.00"," 二十七日"); target
:=
Replace(target,"26.00"," 二十六日"); target
:=
Replace(target,"25.00"," 二十五日"); target
:=
Replace(target,"24.00"," 二十四日"); target
:=
Replace(target,"23.00"," 二十三日"); target
:=
Replace(target,"22.00"," 二十二日"); target
:=
Replace(target,"21.00"," 二十一日"); target
:=
Replace(target,"20.00"," 二十日"); target
:=
Replace(target,"19.00"," 十九日"); target
:=
Replace(target,"18.00"," 十八日"); target
:=
Replace(target,"17.00"," 十七日"); target
:=
Replace(target,"16.00"," 十六日"); target
:=
Replace(target,"15.00"," 十五日"); target
:=
Replace(target,"14.00"," 十四日"); target
:=
Replace(target,"13.00"," 十三日"); target
:=
Replace(target,"12.00"," 十二日"); target
:=
Replace(target,"11.00"," 十一日"); target
:=
Replace(target,"10.00"," 十月"); target
:=
Replace(target,"9.00"," 九日"); target
:=
Replace(target,"8.00"," 八日"); target
:=
Replace(target,"7.00"," 七日"); target
:=
Replace(target,"6.00"," 六日"); target
:=
Replace(target,"5.00"," 五日"); target
:=
Replace(target,"4.00"," 四日"); target
:=
Replace(target,"3.00"," 三日"); target
:=
Replace(target,"2.00"," 二日"); target
:=
Replace(target,"1.00"," 一日"); |
