Código de Visual Basic - Verificador rut Chileno

Filtrado por el tag: tanque

<<>>

Verificador rut Chileno

Visual Basic

(5)

Publicado el 11 de Diciembre del 2002 por [email protected] (2 códigos)

11.403 visualizaciones desde el 11 de Diciembre del 2002

Classe que devuelve el verificador del rut chileno.

Versión 1
(5)

Publicado el 11 de Diciembre del 2002

gráfica de visualizaciones de la versión: Versión 1

11.404 visualizaciones desde el 11 de Diciembre del 2002

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

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.

2 de Enero del 2003

es muy largo, hay maneras mas simples

Responder

fernando monsalve

5 de Abril del 2003

mala la wea no trunca

Responder

Lete

21 de Enero del 2004

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

\'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