如何将日期由数字型转换成汉字型
a:="O一二三四五六七八九十";
riqi := @Text(Date);
year:=@Left(riqi;4);
month:=@Middle(riqi;5;2);
day:=@Middle(riqi;8;2);
y1:=@TextToNumber(@Left(year;1)); y2:=@TextToNumber(@Middle(year;1;1)); y3:=@TextToNumber(@Middle(year;2;1)); y4:=@TextToNumber(@Middle(year;3;1)); yy1:=@Middle(a;y1;1);
yy2:=@Middle(a;y2;1);
yy3:=@Middle(a;y3;1);
yy4:=@Middle(a;y4;1);
year1:=yy1+yy2+yy3+yy4;
m1:=@If(@TextToNumber(month)>=10;10;@TextToNumber(@Left(month;1)));
m2:=@TextToNumber(@Right(month;1)); mm1:=@If(m1=0;"";@Middle(a;m1;1)); mm2:=@If(m2=0;"";@Middle(a;m2;1)); month1:=mm1+mm2;
d1:=@TextToNumber(@Left(day;1)); d2:=@TextToNumber(@Right(day;1)); dd1:=@If(d1=0;"";d1=1;"十";(@Middle(a;d1;1) + "十"));
dd2:=@If(d2=0;"";@Middle(a;d2;1)); day1:=dd1+dd2;
@Unique(@If(Date!="";year1+"年"+month1+"月"+day1+"日";"")); @Prompt([Ok];@Unique(@If(Date!="";year1+"年"+month1+"月"+day1+"日
";""));@Unique(@If(Date!="";year1+"年"+month1+"月"+day1+"日";"")));
本文档为【如何将日期由数字型转换成汉字型】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483