日期转换为大写

来源：百度知道 编辑：UC知道 时间：2024/05/06 00:42:15
2007年1月25日。如何转换为大写？
贰零零柒年零壹月贰拾伍日

将年份、月份、日期分别转换成单个的数字字符，再转换成相应的大写，再合成。
将下列程序存为xxtodx.prg
调用时xxtodx(express)

PARAMETERS rq
SET date to ymd
SET MARK to "-"
yearsz=YEAR(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(yearc3)+szzh(yearc4)

DO case
case monthsz<10
monthzf=szzh(monthc2)
CASE monthsz=10
monthzf="十"
CASE monthsz>10
monthzf="十"+szzh(monthc2)
ENDCASE

DO case
case daysz<10
dayzf=szzh(dayc2)
CASE daysz=10
dayzf="十"
CASE daysz>10.and.daysz<20