日期转大写函数

PARAMETERS DDATE
B="零壹贰叁肆伍陆柒捌玖"
A=DTOS(DDATE)
STORE "" TO C,D,E
FOR I=1 TO LEN(A)
         N=VAL(SUBSTR(A,I,1))
         IF BETWEEN(I,1,4)
             C=C+SUBSTR(B,N*2+1,2)+IIF(I=4,"年","")
         ENDIF
         IF BETWEEN(I,5,6)
             D=D+IIF(I=5 AND N=0,"",IIF(I=5 AND N=1,"拾",IIF(I=6 AND N=0,"",SUBSTR(B,N*2+1,2))))+IIF(I=6,"月","")
         ENDIF
         IF BETWEEN(I,7,8)
             E=E+IIF(I=7 AND N=0,"",IIF(I=7 AND N=1,"拾",IIF(I=7 AND N>1,SUBSTR(B,N*2+1,2)+"拾",IIF(I=8 AND N=0,"",SUBSTR(B,N*2+1,2)))))+IIF(I=8,"日","")
        ENDIF
ENDFOR
RETURN C+D+E