临时编了个~
? DateToCN(date())
Func DateToCN
para pc
local lsc
set cent on
set date ansi
lsc =strt(strt(strt(strt(subs(dtoc(pc),5),".1",".十"),".2",".二十"),".3",".三十"),".0",".")
lsc =chrtranc(strt(strt(strt(subs(lsc,2)," "),"0"),".","月"),"123456789","一二三四五六七八九") +"日"
retu "当前系统日期是: " +chrtranc(left(dtoc(pc),4),"1234567890","一二三四五六七八九〇")+"年" +lsc