校验姓名字段（只能汉字或大写字母），判断是否含有小写字母或非法字符如何校验

校验字符串一例

*校验姓名字段（只能汉字或大写字母），判断是否含有小写字母或非法字符如何校验

*汉字10进制区间 45217--63486

*大写字母10进制区间 65-90

CLEAR 

?CHKHZ("1张a@三B　Cd") &&返回值5，即串中有不符合条件的字符为5个

FUNCTION CHKHZ

     LPARAMETERS Cstr

     IF VARTYPE(Cstr)#"C" OR EMPTY(Cstr)

          RETURN -1 &&参数类型错误或者为空串

     ENDIF

     ErrCnt=0

    FOR i=1 TO LENC(Cstr)

        IF !(BETWEEN(ASC(SUBSTRC(Cstr,i,1)),45217,63486) OR BETWEEN(ASC(SUBSTRC(Cstr,i,1)),65,90))

              ErrCnt=ErrCnt+1

        ENDIF 

     ENDFOR 

     RETURN ErrCnt &&参数中不是汉字或者大写字母的个数，此值为0则符合要求，大于0则含有小写字母或非法字符

ENDFUNC

******************************