CrystalReportsで日付（月日）を縦書きにするために、苦肉の策

2021年12月3日

年月でグループ化したデータを縦書きにするために、、、、出力されるデータがyyyy/mmなので強制的に日本語和暦漢字に置換する方が早い

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

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

月が数字だけの場合

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

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

日が数字だけの場合

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

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

Crystalreports