中文日期的生成方法[VFP6.0代码]

**********************************
* 中文日期的生成方法[VFP6.0代码] *
**********************************
CLEAR
dDate=DATE()
* 年
?CHRTRANC(TRANSFORM(YEAR(dDate)),[0123456789],[〇一二三四五六七八九])+[年]
* 月
lcMonth=[一,二,三,四,五,六,七,八,九,十,十一,十二]
=ALINES(Amonth,CHRTRANC(lcMonth,[,],CHR(13)+CHR(10)))
?Amonth[MONTH(dDate)]+[月]
* 日
lcDay=lcMonth+[,十三,十四,十五,十六,十七,十八,十九,二十,二十一,二十二,二十三,二十四,二十五,二十六,二十七,二十八,二十九,三十,三十一]
=ALINES(Aday,CHRTRANC(lcDay,[,],CHR(13)+CHR(10)))
?Aday[DAY(dDate)]+[日]
* 星期
?[星期]+SUBSTR([一二三四五六日],DOW(dDate,2)*2-1,2)
* 季度
?SUBSTR([一二三四],CEILING(MONTH(dDate)/3)*2-1,2)+[季度]