如何将当前时间设置为中文大写？在线等！
在VF“报表”中，需要显示中文的当前时间，且年份只显示最后一个字。如2007年6月17日 需显示为 七 六 十七，用date（）显示的是阿拉伯数字的日期。请问该如何设置？急～在线等
谢谢！
[解决办法]
&&复制下来，copy到.prg文件中....
set talk off
clear
x=date()
n_year=year(x)
n_month=month(x)
n_day=day(x)
&&计算年
cy_string= '零一二三四五六七八九 '
c_year= " "
for i=1 to 4
c_temp=substr(str(n_year,4),i,1)
n_temp=val(c_temp)+1
c_year=c_year+alltrim(substr(cy_string,((n_temp-1)*2+1),2))
endfor
&&计算月
lcYF=n_month
lcMonth= '一 二 三 四 五 六 七 八 九 十 十一十二 '
lcChmonth=alltrim(substr(lcMonth,((lcYF-1)*4+1),4))+ '月 '
&&计算日
cd_string= '一 二 三 四 五 六 七 八 九 十 '
cd_string=cd_string+ '十一 十二 十三 十四 十五 十六 十七 十八 十九 二十 '
cd_string=cd_string+ '二十一二十二二十三二十四二十五二十六二十七二十八二十九三十 三十一 '
c_day=alltrim(substr(cd_string,((n_day-1)*6+1),6))+ '日 '
c_date=c_year+ "年 "+lcChmonth+c_day
set date to ymd
set century on
? x, " ",c_date
[解决办法]
请参考：
http://community.csdn.net/Expert/topic/5602/5602748.xml
