Invertir números 123 ->321
Como lo dice el titulo... Necesito saber si existe una función para invertir orden de números... Ej: 1234 -->4321...
Gracias de antemano! Saludos!
Gracias de antemano! Saludos!
1 respuesta
Respuesta de jplanac
1
Que yo recuerde no existe, pero te la puedes hacer tu fácilmente.
Function Invertir
LParameters tcTexto
Local lcResul
lcResul = ""
FOR i = LEN(tcTexto) TO 1 STEP -1
lcResul =lcResul + SUBSTR(tcTexto, i, 1)
ENDFOR
Return lcResul
* Si lo que quieres hacer es convertir valores numéricos, deberías convertirlos a caracter primero y posteriormente hacer un VAL del resultado.
Function Invertir
LParameters tcTexto
Local lcResul
lcResul = ""
FOR i = LEN(tcTexto) TO 1 STEP -1
lcResul =lcResul + SUBSTR(tcTexto, i, 1)
ENDFOR
Return lcResul
* Si lo que quieres hacer es convertir valores numéricos, deberías convertirlos a caracter primero y posteriormente hacer un VAL del resultado.
