日期转换为大写

日期转换为大写

问题补充说明：2007年1月25日。如何转换为大写？贰零零柒年零壹月贰拾伍日

将年份、月份、日期分别转换成单个的数字字符，再转换成相应的大写，再合成。

将下列程序存为xxtodx.prg

调用时xxtodx(express)

PARAMETERSrq

SETdatetoym360问答d

SETMARKto"-"

yearsz=YEAR(rq)

永杨威源轴单打村击山yearc=STR(yearsz,4)

yearc1=SUBSTR(yearc,1,1)

yearc2=SUBSTR(奏要显成yearc,2,1)

ye先注住东球伯arc3=SUBSTR(yearc,3,1)

yearc4=SUBSTR(yearc,4,1)

monthsz=MONTH(rq)

monthc=STR(monthsz,2)

monthc1=S唱零着补朝善察洋读UBSTR(monthc,1,1)

monthc2=SUBSTR(monthc,2,1)

daysz=DAY(rq)

dayc北衡仍交展接里报一角息=STR(daysz,2)

dayc1=SUBSTR(dayc备息交苏,1,1)

dayc2=SUBSTR(dayc,2,1)

yearzf=szzh(yearc1)+szzh(yearc2)+szzh(yearc3)+szzh(yearc4)

DOcase

casemonthsz<10

monthzf=szzh(monthc2)

CASEmonthsz=10

monthzf="十"

CASEmonthsz>10

monthzf="十"+szzh(monthc2)

E价NDCASE

DOcase

casedaysz<10

d质山没垂怕站损弱通讲ayzf=szzh(dayc2)

CASEdaysz=10

dayzf="十"

C则知ASEdaysz>10.and.daysz<20

dayzf="十"+袁雨造胜搞告粮密另底szzh(dayc2)

CASEdaysz=20.or.daysz=30

dayzf=szzh(dayc1)+"十"

CASEdaysz>20

day危第屋抓药义有合足之zf=szzh(dayc1)+"十"+szzh(书列毛块致标宽创裂烈推dayc2)

ENDCASE

RETURNyearz触拉找他逐镇结什宗鲜f+"年"+monthzf+"月"+dayzf+"日"

PROCEDUREszzh(szzf)

DOcase

CASEszzf="0"

RETURN"○"

CASEszzf="1"

RETURN"一"

CASEszzf="2"

RETURN"二"

CASEszzf="3"

RETURN"三"

CASEszzf="4"

RETURN"四"

CASEszzf="5"

RETURN"五"

CASEs雷督孔大纸肥八些zzf="6"

RETURN"六"

CASEszzf="7"

RET未鲜赵巴型众考阻宪冲URN"七"

CASEszzf="8"

RETUR坏买浓N"八"

CASEszzf="9"

RETURN"九"

ENDCASE