这是

我自己写的一个将当前日期转换为中文显示出来的程序文件。想请各位前辈帮忙看一下，还有哪些地方需要改进的。
谢谢。

还不错，加以肯定。

一个字：好

做成自定义函数，语句会少很多：
?c_date()

FUNCTION c_date
PARAMETERS n
    LOCAL s,n1,n2,n3,n4
    SET CENTURY on
    SET DATE ymd
    s=""
    n3=""
    n1=dtoc(date())
    n2=SUBSTR(n1,9,1)
    IF !n2="0"
        n3=IIF(n2="1","",c_z(n2))+"十"   
    ENDIF
    n3=n3+IIF(RIGHT(n1,1)="0","",c_z(RIGHT(n1,1)))
    FOR i =1 to 4
        n4=c_z(SUBSTR(n1,i,1))
        s=s+n4
    NEXT
    s=s+"年"+cmonth(DATE())+n3+"日"
    RETURN "当前的系统日期为："+s
ENDFUNC

FUNCTION c_z
PARAMETERS m
    RETURN SUBSTR("Ｏ一二三四五六七八九",2*VAL(m)+1,2)
ENDFUNC

谢谢，我试过了，可以用。确实减少了很多的语句。
可是月份显示出来的是英文。
那如何将月份改成显示为中文呢？
谢谢…………

哦！VFP6.0下CMONTH()函数的确不行，楼主还在用6.0？
再加个对月份的判断就是了。

s=s+"年"+IIF(SUBSTR(n1,6,1)="1","十","")+c_z(SUBSTR(n1,7,1))+"月"+n3+"日"

(笨法子,初学者可看)   先做张表 rq ，只有一个字符型字段 b, 字段内每行写上：

零
一
二
三
...
二十九
三十
三十一

共32行。执行以下简单语句：
close all
 use rq
    datt=dtos(date())
    cm=substr(datt,5,2)
    cd=substr(datt,7,2)
    yy=''
 for n=1 to 4
     cy=substr(datt,n,1)     
     go val(cy)+1
     yy=yy+alltrim(b)
 endfor   
     go val(cm)+1
     mm=alltrim(b)
     go val(cd)+1
     dd=alltrim(b)
   
 ? "今天是："+yy+"年"+mm+"月"+dd+"日"

临时编了个~

? 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

*年的转换是直接读取汉字，不带几千几百几十的；月和日的转换是要读出几十几的。本办法如下
lcStr='一    二    三    四    五    六    七    八    九    十    '+;
      '十一  十二  十三  十四  十五  十六  十七  十八  十九  二十  '+;
      '二十一二十二二十三二十四二十五二十六二十七二十八二十九三十  '+;
      '三十一'
ldDate=date()
return '当前系统日期是：'+;
       CHRTRANC(ALLTRIM(STR(YEAR(ldDdate))),'0123456789','〇一二三四五六七八九')+'年'+;
       alltrim(substr(lcStr,month(ldDate)*6-5,6))+'月'+;
       alltrim(substr(lcStr,day(ldDate)*6-5,6))+'日'