none
separar digito verificador del rut RRS feed

  • Pregunta

  • Hola chicos, quería consultar cómo puedo separar el dígito verificador del rut.

    ejemplo 

    18335985-2

    el "-2" ese es el dígito verificador el cual necesito sacar, separar.

    en la bd es un varchar de largo 10

    alguna función en vb.net que sirva?


    GRACIAS.

    viernes, 24 de junio de 2016 15:15

Respuestas

  • MichelleRebeca,

    Si deseas obtener el valor de las dos últimas posiciones puedes hacer uso del método SubString()

    Dim RUT As String = "18335985-2"
    Dim DigitoVerificador As String = RUT.SubString(8, 2)
    

    El método SubString() recupera una subcadena de una instancia de tipo String, por tanto lo puedes aplicar al valor que extraes de la bd.

    viernes, 24 de junio de 2016 15:23
  • Hola, puedes utilizar Mid (Devuelve una cadena que contiene un numero especificado de caracteres de una cadena.)
    Dim digitoDB as String = 'Aquí el valor completo obtenido de la BD
    Dim digitoSeparador as String = ""
    
    If (digitoDB.Lenght = 10) Then
       digitoSeparador = Mid(digitoDB, 9, 2)
    End If 


    Javier

    viernes, 24 de junio de 2016 15:31
  • Hola:
         Me.Label1.Text = CStr(Derecha(Me.TextBox1.Text, 2))
     
         ' -------------------------------------------------------------
         ' EXTRAE UNA SUBCADENA DE LA CADENA, A PARTIR DE LA DERECHA
         ' -------------------------------------------------------------
         Public Shared Function Derecha(ByVal MiCadena As String, ByVal cuantos As Integer) As String
             Return MiCadena.Substring(MiCadena.Length - cuantos, cuantos)
         End Function

    Un saludo desde Bilbo
    Carlos
    viernes, 24 de junio de 2016 20:36

Todas las respuestas

  • MichelleRebeca,

    Si deseas obtener el valor de las dos últimas posiciones puedes hacer uso del método SubString()

    Dim RUT As String = "18335985-2"
    Dim DigitoVerificador As String = RUT.SubString(8, 2)
    

    El método SubString() recupera una subcadena de una instancia de tipo String, por tanto lo puedes aplicar al valor que extraes de la bd.

    viernes, 24 de junio de 2016 15:23
  • hola

    podrias usar el Split()

    seria

    Dim cadena As String = "18335985-2"
    
    Dim partes As String = cadena.Split("-")
    
    If partes.Length > 1 Then
    
       Dim verificador As String = partes(1)
    
    End If


    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    • Propuesto como respuesta Kaysinho viernes, 24 de junio de 2016 21:07
    viernes, 24 de junio de 2016 15:23
  • Hola, puedes utilizar Mid (Devuelve una cadena que contiene un numero especificado de caracteres de una cadena.)
    Dim digitoDB as String = 'Aquí el valor completo obtenido de la BD
    Dim digitoSeparador as String = ""
    
    If (digitoDB.Lenght = 10) Then
       digitoSeparador = Mid(digitoDB, 9, 2)
    End If 


    Javier

    viernes, 24 de junio de 2016 15:31
  • Hola:
         Me.Label1.Text = CStr(Derecha(Me.TextBox1.Text, 2))
     
         ' -------------------------------------------------------------
         ' EXTRAE UNA SUBCADENA DE LA CADENA, A PARTIR DE LA DERECHA
         ' -------------------------------------------------------------
         Public Shared Function Derecha(ByVal MiCadena As String, ByVal cuantos As Integer) As String
             Return MiCadena.Substring(MiCadena.Length - cuantos, cuantos)
         End Function

    Un saludo desde Bilbo
    Carlos
    viernes, 24 de junio de 2016 20:36