我们有道编程题，是编写一个自定义函数，可以将日期转换为中文大写形式，比如说：{1999-02-15}或CTOD（"1999-02-15"）转换为中文大写形式：一九九九年二月十五日。
   我总觉得程序不会很长，可就是想不出来，书上有道例题是将小写金额转换为大写，我觉得挺相近的，可还是…………你们那位高手能帮帮我？

怎么没人回应阿？高手~~~~~~~~~

VFP并没有这样的标准函数,自已其实可以制作,你先按照这个方法试着做一下吧!


这是一个人民币小定转大写的小程序:
Parameters rmb
rmb=Strtran(Alltrim(Str(rmb,15,2)),'.','')
#Define rmbexp "分角元拾佰仟万拾佰仟亿拾佰仟"
#Define rmbda "零壹贰参肆伍陆柒捌玖"
expda=''
lent=Lenc(rmb)
For i=1 To lent
       expda=Substrc(rmbda,Int(Val(Substr(rmb,lent-;
       i+1,1)) +1),1)+Iif(Substrc(rmbexp,i,1)='元',;
       Substrc(rmbexp,i,1)+' ',Substrc(rmbexp,i,1))+expda
Endf
Return expda

你现在只要将日期的年月日分别读出来,然后转换即可.


原来我看到过这方面的函数,但现在一下子没有找到,以后找到了再给你.

日期的就不同了
看似相似，其实不是

恩，那我回头想一想吧，谢了~~~~呵呵

CLEAR
dDATE=DATE()
?TRANSFORM(VAL(DTOS(dDATE)),'@ 9999年99月99日')
?REPLICATE([*],24)
HZ=[一二三四五六七八九]
SZ=[123456789]
NYEAR=CHRTRANC(TRANSFORM(YEAR(dDATE)),[0]+SZ,[〇]+HZ)+[年]
NMONTH=IIF(INT(MONTH(dDATE)/10)=1,[十],[])+IIF(MONTH(dDATE)%10=0,[],CHRTRANC(TRANSFORM(MONTH(dDATE)%10),SZ,HZ))+[月]
NDAY=IIF(INT(DAY(dDATE)/10)>0,CHRTRANC(TRANSFORM(INT(DAY(dDATE)/10)),SZ,IIF(INT(DAY(dDATE)/10)>1,HZ,[]))+[十],[])+IIF(DAY(dDATE)%10=0,[],CHRTRANC(TRANSFORM(DAY(dDATE)%10),SZ,HZ))+[日]
?NYEAR+NMONTH+NDAY