Código de Visual Basic - Verificador rut Chileno

Verificador rut Chilenográfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 11 de Diciembre del 2002 por durbitst@terra.cl
9.879 visualizaciones desde el 11 de Diciembre del 2002. Una media de 14 por semana
Classe que devuelve el verificador del rut chileno.

Versión 1
estrellaestrellaestrellaestrellaestrella(5)

Publicado el 11 de Diciembre del 2002gráfica de visualizaciones de la versión: Versión 1
9.880 visualizaciones desde el 11 de Diciembre del 2002. Una media de 14 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (5)

Hardy
30 de Diciembre del 2002
estrellaestrellaestrellaestrellaestrella
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..

Desde ya muy agradecido.
Responder
Patricio G.
02 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
es muy largo, hay maneras mas simples
Responder
fernando monsalve
05 de Abril del 2003
estrellaestrellaestrellaestrellaestrella
mala la wea no trunca
Responder
Lete
21 de Enero del 2004
estrellaestrellaestrellaestrellaestrella
Mala la wea...se te olvido programar parece...eres una desonrra para esta web no mereces estar aca¡¡¡

Responder
Ricardo
19 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
\'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
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s395