怎么将当前时间设置为中文大写？

如何将当前时间设置为中文大写？在线等！
在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