数字日期转换为中文文字日期

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