Función para invertir el orden de números, letras o combinación de ambos

Código:

Function IB·InvertirOrdenNL(Valor As String) As String
    Dim C As Integer, i As Integer, A As String
    C = Len(Valor)
    For i = C To 1 Step -1
        A = A & Mid(Valor, i, 1)
    Next i
    IB·InvertirOrdenNL = A
End Function

Comentarios

  1. Hola! tengo una data donde aparece la fecha (en número) de la siguiente manera: 20231105. La pregunta es; como convertir este número en "Fecha" para poder trabajarla!!!! Carlos Bustamante

    ResponderEliminar
    Respuestas
    1. Saludos, disculpa que a la fecha que responda tu comentario, suponiendo que el dato este en A2 podrías emplear esta formula: =FECHA(IZQUIERDA(A2;4);EXTRAE(A2;5;2);DERECHA(A2;2)) sino te funciona cambias los ; por coma. Otra manera seria selecciona los datos, en la pestaña datos ubicas "texto en columnas", en la ventana emergente das clic en siguiente, nuevamente en siguiente, en la ventana emergente que aparece eliges fecha y seleccionas AMD y clic en finalizar.

      Eliminar
  2. Maravillosa función, gracias por compartirla, quisiera saber como convertir campos Decimales de más de 10 caracteres a un número Hexadecimal.

    ResponderEliminar

Publicar un comentario