Función para obtener dígito verificador en VB6

En esta oportunidad les traemos una muy útil función que nos servirá a la hora de querer obtener el dígito verificador de un Rut.

Function dv(rut as String)
 j = 2
 For i = 0 To Len(rut) - 1
   aux = aux + Val(Mid$(rut, Len(rut) - i, 1)) * j
   If j > 6 Then
    j = 2
   Else
    j = j + 1
   End If
 Next i
 aux1 = 11 - (aux Mod 11)
 If aux1 < 10 Then
   dv = aux1
 Else
   dv = "K"
 End If
End Function

Esperamos sea de su utilidad.

Saludos

3 Respuestas

  1. Christian Bennet dice:

    Muy bueno. Gracias. Cortar y pegar. Funciona OK.

  2. CDV dice:

    Funciona. Gracias.
    Sólo tuve que cambiar «>» y «<» por «>» y «<"
    Saludos

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *