请问如何将2007年5月15日转换为

二〇〇七年五月十五日

如何将数字日期转换成文字日期

** 函数名 big_date
** 功能：将一个日期型数据转换成一个大写中文日期形式如将 2000.06.01 转成 二零零零年六月一日
** 用法：?big_date(你要转换的日期) 如 ?big_date(date())
** 作者：黄虎锋 于 2000.6.3
FUNC big_date
para _date
priv c1,c2,c3,cyear,_month,_day
c1=" 一二三四五六七八九" && 个位数
c2=" 十二十三十" && 十位数
c3="零"+allt(c1) && 用于年份
** 计算年份
_year=str(year(_date),4)
cYear=""
for n=1 to 4
cYear=cYear+subst(c3,val(subst(_year,n,1))*2+1,2)
endfor
** 计算月份
_month=month(_date)
** 计算日期
_day=day(_date)
** 返回文字日期
retu cyear+"年"+sz2hz(_month)+"月"+sz2hz(_day)+"日"
** 两位数数字转大写的函数
func sz2hz
para sz
sz2=int(sz/10)
csz2=subst(c2,sz2*4+1,4)
sz1=mod(sz,10)
csz1=subst(c1,sz1*2+1,2)
hz=allt(csz2)+allt(csz1)
retu hz
不是自己写的,根据这个试试

谢谢了!
试过了,还是有些问题,转换后为:"二零零七年十跺猎漫十儒寥?"

** 函数名 big_date
** 功能：将一个日期型数据转换成一个大写中文日期形式如将 2000.06.01 转成 二零零零年六月一日
** 用法：?big_date(你要转换的日期) 如 ?big_date(date())
FUNC big_date
para _date
priv c1,c2,c3,cyear,_month,_day
c1=" 一二三四五六七八九" && 个位数
c2=" 十 二十三十" && 十位数
c3="零"+allt(c1) && 用于年份
** 计算年份
_year=str(year(_date),4)
cYear=""
for n=1 to 4
cYear=cYear+subst(c3,val(subst(_year,n,1))*2+1,2)
endfor
** 计算月份
_month=month(_date)
** 计算日期
_day=day(_date)
** 返回文字日期
retu cyear+"年"+sz2hz(_month)+"月"+sz2hz(_day)+"日"
** 两位数数字转大写的函数
func sz2hz
para sz
sz2=int(sz/10)
IF INT(sz/10)=0
csz2=""
ELSE
IF INT(sz/10)=1
csz2="十"
ELSE
csz2="二十"
ENDIF
endif
*csz2=subst(c2,sz2*4,4)
sz1=mod(sz,10)
csz1=subst(c1,sz1*2,2)
hz=allt(csz2)+allt(csz1)
retu hz


我自己改了点,应该可的了

[此贴子已经被作者于2007-5-15 14:46:47编辑过]

已经成功转换出我想要的结果：二○○七年五月十五日
再次感谢！