大写日期转换器（现金支票大写日期转换器）

大家好,小活来为大家解答以上的问题。现金支票大写日期转换器，大写日期转换器这个很多人还不知道,现在让我们一起来看看吧！

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

2、 将下列程序存为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 dayzf="十"+szzh(dayc2) CASE daysz=20 .or.daysz=30 dayzf=szzh(dayc1)+"十" CASE daysz>20 dayzf=szzh(dayc1)+"十"+szzh(dayc2) ENDCASE RETURN yearzf+"年"+monthzf+"月"+dayzf+"日" PROCEDURE szzh (szzf) DO case CASE szzf="0" RETURN "○" CASE szzf="1" RETURN "一" CASE szzf="2" RETURN "二" CASE szzf="3" RETURN "三" CASE szzf="4" RETURN "四" CASE szzf="5" RETURN "五" CASE szzf="6" RETURN "六" CASE szzf="7" RETURN "七" CASE szzf="8" RETURN "八" CASE szzf="9" RETURN "九" ENDCASE。

本文到此分享完毕，希望能帮助到大家。