Código de Visual Basic - Verificador rut Chileno

sin imagen de perfil

Verificador rut Chilenográfica de visualizaciones


Visual Basic

Publicado el 11 de Diciembre del 2002 por Durbitst@terra.cl (2 códigos)
10.553 visualizaciones desde el 11 de Diciembre del 2002
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
10.554 visualizaciones desde el 11 de Diciembre del 2002
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)

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
2 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
es muy largo, hay maneras mas simples
Responder
5 de Abril del 2003
estrellaestrellaestrellaestrellaestrella
mala la wea no trunca
Responder
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
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s395