日期问题
请问如何将
如何将数字日期转换成文字日期
** 函数名 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
不是自己写的,根据这个试试
[此贴子已经被作者于2007-5-15 14:46:47编辑过]