Bock
16 de Julio del 2004

necesito validar rut en dos text (text1 = para los primeros numero) (text2 = para el digito verificador)

solo eso necesito, validar el rut en dos text. gracias :)

Ren?
16 de Julio del 2004

Esta función te devuelve el digito verificador (Chile) pasado a la variable rut, solo debes asegurarte de
que rut sea numérico (con isnumeric) para no obtener error.


Public Function VRut(rut As Double) As String
crut = Str(rut)
n1 = Len(crut)
su = 0
x = 2
Do While n1 <> 0
su = su + Val(Mid(crut, n1, 1)) * x
x = x + 1
If x = 8 Then
x = 2
End If
n1 = n1 - 1
Loop
r = Int(su / 11)
d = su - r * 11
d = 11 - d
If d = 10 Then rd = "K"
If d = 11 Then rd = "0"
If d < 10 Then
rd = Str(d)
rd = Trim(rd)
rd = LTrim(rd)
End If
VRut = rd
End Function

saludos