数字日期转换为中文文字日期
来源：互联网 发布：h5小游戏免费制作软件 编辑：程序博客网 时间：2024/04/30 18:52
CLEAR*----年C_YEAR=CHRTRANC(TRANSFORM(YEAR(DATE())),"0123456789","〇一二三四五六七八九")+"年"*----月CMONTH=TRANSFORM(MONTH(DATE()))CMONTH1=IIF(RIGHT(CMONTH,1)="0","",RIGHT(CMONTH,1))C_MONTH=IIF(LEN(CMONTH)=2,"十","")+CHRTRANC(CMONTH1,"0123456789","〇一二三四五六七八九")+"月"*----日CDAY=TRANSFORM(DAY(DATE()))CDAY1=IIF(RIGHT(CDAY,1)="0","",CHRTRANC(RIGHT(CDAY,1),"0123456789","〇一二三四五六七八九"))CDAY2=IIF(LEN(CDAY)=2,CHRTRANC(LEFT(CDAY,1),"123","十二三")+IIF(LEFT(CDAY,1)="1","","十"),"")C_DAY=CDAY2+CDAY1+"日"*----年月日?C_YEAR+C_MONTH+C_DAY
