Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Baje la clase que expones para verificacion de Rut chileno, pero sabes cual es mi duda?, cual es el nombre que debo dar al TextBox que contendra el Rut??, y como llamo a la funcion mediante un Command??
Solo eso, quizas es muy simple pero no puedo ejecutarlo..
\'Yo ocupo algo como esto, y me ha funcionado, si tiene algo malo agradecere, me lo hagan saber a mi correo....= si tienes ayuda sobre Winsock quiero saber como mandar un mensaje a todos los PCs de una Red LOCAL....Gracias!
\'-------- 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
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