RE:Como hacer una validacion de rut? Urgente
Pueba esta función y debes aplicarla como sigue:
dim rutx as long, dig as string
text1.text = 10333511
rutx = val(text1.text)
digx = DigitoRut(rutx)
text2.text = digx
Resultado = 6
Public Function DigitoRut(rutfun As Long) As String
Dim rx As Integer, ry As Integer
Dim dvy As String * 1
Dim rutfuncadena As String * 9
Dim rtot As Integer, rtot1 As Integer, difrut As Integer
rutfuncadena = Format(rutfun, "000000000")
rx = 1
ry = 5
rtot = 0
rtot1 = 0
Do While rx < 10
ry = ry - 1
ry = IIf(ry < 2, 7, ry)
rtot = rtot + Val(Mid$(rutfuncadena, rx, 1)) * ry
rx = rx + 1
Loop
rtot1 = Int(rtot / 11)
rtot1 = rtot - (rtot1 * 11)
difrut = 11 - rtot1
Select Case difrut
Case 11
dvy = "0"
Case 10
dvy = "K"
Case Else
dvy = difrut
End Select
DigitoRut = dvy
End Function
En Chile esta es la fórmula, espero que te funcione, te mando un saludo desde La Serena
FELIPE HENRIQUEZ ORDENES