如“1”至“9”转换成“一”至“九”；“11”至“99”转换成“十一”......“九十九”。最好能自定义个函数，谢谢！

[此贴子已经被作者于2017-3-25 23:20编辑过]

LOCAL gclca,gclcb,gclcc,gclcd,gclce,gclcf,gclcg,gclch,gclci,gclcaa,gclcbb,gclccc,gclcdd,gclcee,gclcff,gclcgg,gclchh,gclcii,gclcjg
FUNC gclccszzh
PARAMETERS gclcfz
IF LEN(ALLTRIM(gclcfz))=1
n=ALLTRIM(gclcfz)
gclca='一'
gclcb='二'
gclcc='三'
gclcd='四'
gclce='五'
gclcf='六'
gclcg='七'
gclch='八'
gclci='九'
IF n='0'
s=''
ENDIF
IF n='1'
s=gclca
ENDIF
IF n='2'
s=gclcb
ENDIF
IF n='3'
s=gclcc
ENDIF
IF n='4'
s=gclcd
ENDIF
IF n='5'
s=gclce
ENDIF
IF n='6'
s=gclcf
ENDIF
IF n='7'
s=gclcg
ENDIF
IF n='8'
s=gclch
ENDIF
IF n='9'
s=gclci
ENDIF
gclcjg=ALLTRIM(s)

ELSE
IF LEN(ALLTRIM(gclcfz))=2
n=SUBSTR(gclcfz,1,1)
i=SUBSTR(gclcfz,2,1)
ENDIF
gclca='一'
gclcb='二'
gclcc='三'
gclcd='四'
gclce='五'
gclcf='六'
gclcg='七'
gclch='八'
gclci='九'
gclcaa='一'
gclcbb='二'
gclccc='三'
gclcdd='四'
gclcee='五'
gclcff='六'
gclcgg='七'
gclchh='八'
gclcii='九'
IF n='1'
s=gclca
ENDIF
IF n='2'
s=gclcb
ENDIF
IF n='3'
s=gclcc
ENDIF
IF n='4'
s=gclcd
ENDIF
IF n='5'
s=gclce
ENDIF
IF n='6'
s=gclcf
ENDIF
IF n='7'
s=gclcg
ENDIF
IF n='8'
s=gclch
ENDIF
IF n='9'
s=gclci
ENDIF
IF i='0'
t=''
ENDIF
IF i='1'
t=gclcaa
ENDIF
IF i='2'
t=gclcbb
ENDIF
IF i='3'
t=gclccc
ENDIF
IF i='4'
t=gclcdd
ENDIF
IF i='5'
t=gclcee
ENDIF
IF i='6'
t=gclcff
ENDIF
IF i='7'
t=gclcgg
ENDIF
IF i='8'
t=gclchh
ENDIF
IF i='9'
t=gclcii
ENDIF
IF SUBSTR(gclcfz,1,1) ='1'
gclcjg=ALLTRIM('十'+t)
ELSE
gclcjg=ALLTRIM(allt(s)+'十'+ALLTRIM(t))
ENDIF
ENDIF
RETURN gclcjg

[此贴子已经被作者于2017-3-26 00:35编辑过]

谢谢吹水佬！可以达到目的，比我写的简化多了。