PROCEDURE InvertirNumero
LPARAMETERS xnInterger,xnFlag
* --------------------------------------
* xnInterger es un número entero
* xnInterger puede ser String o Numeric
* Si xnFlag=0, devuelve un numeric
* Si xnFlag=1, devuelve un String
* --------------------------------------
IF VARTYPE(xnFlag)#"N"
xnFlag=0
ENDIF
IF !BETWEEN(xnFlag,0,1)
xnFlag=0
ENDIF
LOCAL lcInterger, lcRespuesta,i
STORE "" TO lcRespuesta
DO CASE
CASE VARTYPE(xnInterger)$'NI'
lcInterger=TRANSFORM(xnInterger)
CASE VARTYPE(xnInterger)="C"
lcInterger=ALLTRIM(xnInterger)
OTHERWISE
RETURN IIF(EMPTY(xnFlag),0,"")
ENDCASE
FOR i=LEN(lcInterger) TO 1 STEP -1
lcRespuesta=lcRespuesta+SUBSTR(lcInterger,i,1)
ENDFOR
RETURN IIF(xnFlag=0,VAL(lcRespuesta),lcRespuesta)
Crear cuenta
