Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » VALIDACION DE RUT

Visual Basic - VALIDACION DE RUT

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

VALIDACION DE RUT

Publicado por TOTOMAN (2 intervenciones) el 12/12/2005 16:45:06
Hola Amigos.!!
saben, necesito un codigo de validacion de RUT en VB6... por favor..
y algun manual para trabajar con DATAREPORT....
de ante mano agradesco muxho su ayuda....
GRACIAS TOTALES:..
-= TOTOMAN =-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:VALIDACION DE RUT

Publicado por Ariel (94 intervenciones) el 12/12/2005 17:02:33
Hola
necesitas validar el rut de chile?
si es asi aqui te envio esta funcion que te puede servir.
esta funcion devuelve el digito verificador dependiendo del rut
por ejemplo: 4.678.605 el resultado de este rut es "-K"

para llamar a esta funcion solo coloca
1
2
3
dim rut as String
 
rut='4678605' & MuestraDigito(4678605)
y te dara como resultado
1
rut='4678605-K'

puedes modificarlo segun tu necesidad.

espero te sirva...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function MuestraDigito(R As Long) As String
Dim i As Integer, sum As Integer
Dim Rut As Long
 
i = 1: sum = 0
Do
    i = i + 1
    sum = sum + ((R Mod 10) * i)
    R = R \ 10
    If i = 7 Then i = 1
Loop Until R = 0
 
sum = sum Mod 11
sum = 11 - sum
 
Select Case sum
    Case 11:
        MuestraDigito = "-0"
    Case 10:
        MuestraDigito = "-K"
    Case Else
        MuestraDigito = "-" & sum
End Select
 
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar

RE:VALIDACION DE RUT

Publicado por victor (1 intervención) el 19/05/2006 01:58:59
Hola

Como lo inserto en microsoft access ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar

RE:VALIDACION DE RUT

Publicado por ronnie (1 intervención) el 16/11/2008 16:19:55
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim vrut, paso
Dim suma, divi, resto, aux
Dim x As Integer
 
 
vrut = Text7.Text
d1 = Val(Mid(vrut, 1, 1)) * 3
d2 = Val(Mid(vrut, 2, 1)) * 2
d4 = Val(Mid(vrut, 4, 1)) * 7
d5 = Val(Mid(vrut, 5, 1)) * 6
d6 = Val(Mid(vrut, 6, 1)) * 5
d8 = Val(Mid(vrut, 8, 1)) * 4
d9 = Val(Mid(vrut, 9, 1)) * 3
d10 = Val(Mid(vrut, 10, 1)) * 2
 
DV = Mid(vrut, 12, 1)
suma = d10 + d9 + d8 + d6 + d5 + d4 + d2 + d1
divi = Int(suma / 11)
resto = suma - (divi * 11)
aux = LTrim(Str(11 - resto))
 
If aux = 11 Then
   aux = "0"
End If
 
If aux = 10 Then
   aux = "K"
 
End If
 
 
If DV = aux Or DV = "k" Then
    MsgBox "Rut  correcto, por favor verifiquelo", vbCritical, "error


Else

    MsgBox "Rut Incorrecto, por favor verifiquelo", vbCritical, "error"


    Text7.SetFocus



End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar