日期转换为大写

日期转换为大写

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

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

将下列程序存为xxtodx.prg

调用时xxtodx(express)

PARAMETE来自RSrq

SETda360问答tetoymd

SETMARKto"-"

yearsz=Y航妈析向政织多啊EAR(rq)

yearc=STR(yearsz,4)

术汉来超临林那怎yearc1=SUBSTR(yearc,1,1)

yearc2=SUBSTR(给乎被更占石同yearc,2,1)

yearc3=SUBSTR(yearc,3,1)

yearc4=SUBSTR(yearc,4,1)

monthsz=MONTH(rq)

monthc=STR(monthsz,2)

monthc1=SUBSTR(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(yea跳亮送害李工rc3)+szzh(yearc4)

DOcase

爱李层著种casemonthsz<10

monthz菜气武f=szzh(monthc2)

CASEmonthsz=10

monthzf="十"

CASEmonthsz>10

monthzf="十"+szzh(monthc2)

ENDCASE

DOcase

casedaysz<10

dayzf=s汽植反企zzh(dayc2)

CASEdaysz=10

dayzf="十"

CASEdaysz>10.and.daysz<20

dayzf="十"+szzh(dayc2)

CASEdaysz=20.or.daysz=30

dayzf=szzh(dayc1)+"十"

CASEdaysz>20

dayzf=szzh(dayc1)+"十"+szzh(dayc2)

ENDCASE

RETURNyearzf+"年"+monthzf+"月"+dayzf+"日"

PROCEDUREszzh(szzf)

DOcase

CASEszzf="0"

RETURN"○"

CASEszzf="1"

RETURN"一"

CASEszzf="2"

RETURN"二"

CASEszzf="3"

RETURN"三"

CASEszzf="4"

RETURN"四"

CASEszzf="5"

RETURN"五"

CASEszzf="6"

RETURN"六"

CASEszzf="7"

RETURN"七"

CASEszzf="8"

RETURN"八"

CASEszzf="9"

RETURN"九"

E突NDCASE