指定日期转换为中文日期

作者在 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))+"日"


作者在 2017-11-23 21:05:34 补充以下内容

* VFP9 代码

Clear 

lcStr="一二三四五六七八九"
FOR I=1 TO 99
    ?ICASE(BETWEEN(i,1,9),SUBSTR(lcStr,(i-1)*2+1,2),BETWEEN(i,10,19),"十"+SUBSTR(lcStr,(i%10-1)*2+1,2),SUBSTR(lcStr,(INT(i/10)-1)*2+1,2)+"十"+SUBSTR(lcStr,(i%10-1)*2+1,2))
ENDFOR
日期时间问题 | 阅读 1544 次
文章评论,共0条
游客请输入验证码
浏览396884次