Verificador rut Chileno
Visual Basic
Publicado el 11 de Diciembre del 2002 por [email protected] (2 códigos)
11.129 visualizaciones desde el 11 de Diciembre del 2002
Classe que devuelve el verificador del rut chileno.
Iniciar sesiónCrear cuenta
Crear cuenta
Comentarios sobre la versión: Versión 1 (5)
Solo eso, quizas es muy simple pero no puedo ejecutarlo..
Desde ya muy agradecido.
\'-------- ValRut recibe el numero completo incluyendo el digito verificador,
\'....... en el formato NUMERO-DV. eJ 11111111-1 O 6-K
Function ValRut(Rut) As Boolean
Dim vRut, vDig, vMult As String
Dim vLargo As Byte, vSuma, vRes As Integer
vLargo = Len(Rut) - 2
vMult = Right(\"32765432\", vLargo)
vRut = Mid(Rut, 1, vLargo)
vDig = Right(Rut, 1)
For i = vLargo To 1 Step -1
vSuma = vSuma + (Val(Mid(vRut, i, 1)) * Val(Mid(vMult, i, 1)))
Next
vRes = 11 - (vSuma Mod 11)
ValRut = IIf(Mid(\"123456789K0\", vRes, 1) = UCASE(vDig), True, False)
End Function