在vfp9.0里面,字符串"Oct-05-13"怎么转换成字符串"20131005"

CLEAR
lcStr=[Oct-05-13]
lcStr1=GETWORDNUM(lcStr,1,[-])
lcStr2=GETWORDNUM(lcStr,2,[-])
lcStr3=[20]+GETWORDNUM(lcStr,3,[-])
FOR I=1 TO 12
    IF lcStr1$CMONTH(DATE(2013,I,1))
       NMONTH=I
    ENDIF
ENDFOR
?lcStr3+TRANSFORM(nmonth)+lcStr2

收到的鲜花

• tlliqi 于 2013-10-31 20:26 送鲜花  10朵   附言：可行

可行

SET DATE mdy
?changdate("Oct-05-13")

FUNCTION changdate   &&自定义转换函数
PARAMETERS n
    FOR I=1 TO 12
        IF LEFT(n,AT("-",n)-1)$CMONTH(DATE(2013,I,1))
           EXIT
        ENDIF
    NEXT  
    RETURN DTOS(CTOD(TRANSFORM(i)+RIGHT(n,6)))
ENDFUNC