作者在 2015-02-17 21:45:59 发布以下内容
Clear
ldDate=Date()
lcStr="一,二,三,四,五,六,七,八,九,十,十一,十二,十三,十四,十五,十六,十七,十八,十九,二十,二十一,二十二,二十三,二十四,二十五,二十六,二十七,二十八,二十九,三十,三十一"
=Alines(Adate,Chrtran(lcStr,",",Chr(13)+Chr(10)))
* 年
?Chrtranc(Transform(Year(ldDate)),"0123456789","〇一二三四五六七八九")+"年"
* 月
?Adate(Month(ldDate))+"月"
* 日
?Adate(Day(ldDate))+"日"
