Validar Rut (chile) en ASP
necesito saber como validar un rut(sakar el digito verificador) en chile...ya sea que me den la formula o que envien el codigo....
de antemano muchas gracias
de antemano muchas gracias
Por fin llegue a la formula, tal vez ya la tienen pero valida todo los rut de 0......a millones
a1 el rut sin digito
b1 la formula =SI(LARGO(A15)=8,SUMA(11-RESIDUO(SUMA(EXTRAE(A15,1,1)*3+EXTRAE(A15,2,1)*2+EXTRAE(A15,3,1)*7+EXTRAE(A15,4,1)*6+EXTRAE(A15,5,1)*5+EXTRAE(A15,6,1)*4+EXTRAE(A15,7,1)*3+EXTRAE(A15,8,1)*2),11)),SUMA(11-RESIDUO(SUMA(EXTRAE(A15,1,1)*2+EXTRAE(A15,2,1)*7+EXTRAE(A15,3,1)*6+EXTRAE(A15,4,1)*5+EXTRAE(A15,5,1)*4+EXTRAE(A15,6,1)*3+EXTRAE(A15,7,1)*2),11)) )
g1 la formula
=SI(B15<=9,B15,SI(B15=10,"K",0))
digitas el rut en a1 y listo
a1 el rut sin digito
b1 la formula =SI(LARGO(A15)=8,SUMA(11-RESIDUO(SUMA(EXTRAE(A15,1,1)*3+EXTRAE(A15,2,1)*2+EXTRAE(A15,3,1)*7+EXTRAE(A15,4,1)*6+EXTRAE(A15,5,1)*5+EXTRAE(A15,6,1)*4+EXTRAE(A15,7,1)*3+EXTRAE(A15,8,1)*2),11)),SUMA(11-RESIDUO(SUMA(EXTRAE(A15,1,1)*2+EXTRAE(A15,2,1)*7+EXTRAE(A15,3,1)*6+EXTRAE(A15,4,1)*5+EXTRAE(A15,5,1)*4+EXTRAE(A15,6,1)*3+EXTRAE(A15,7,1)*2),11)) )
g1 la formula
=SI(B15<=9,B15,SI(B15=10,"K",0))
digitas el rut en a1 y listo
Alguien tiene idea de como se valida una patente de vehiculo por ejemplo komo se que el digito verificador de esta patente es valida kp2107-2
´Quisiera saber cómo le calculo el digito verificador a cualquier numero (ej: de largo 12) y la union enviarla a un link
Soy brasileña y necesito de un RUT para poder completar mis dados en el site EMOL. Cómo devo proceder?
El RUT es el Rol Único Tributario, es el número del documento de identidad. No podrías obtener uno. EOL debería tener la opción para extranjeros.
Cómo calcular el dígito de control del RUT
Positions N1 N2 N3 N4 N5 N6 N7 N8 N9
Number without check digit -
1 2 3 4 5 6 7 8
Step 1: Multiply x x x x x x x x -
by 3 2 7 6 5 4 3 2 -
Step 2: Add results = = = = = = = = -
to create sum 3 4 21 24 25 24 21 16 138
Step 3: Calcular el resto de la div de la suma por 11 y restarlo DE 11 6
Number with check digit 1 2 3 4 5 6 7 8 5
Positions N1 N2 N3 N4 N5 N6 N7 N8 N9
Number without check digit -
1 2 3 4 5 6 7 8
Step 1: Multiply x x x x x x x x -
by 3 2 7 6 5 4 3 2 -
Step 2: Add results = = = = = = = = -
to create sum 3 4 21 24 25 24 21 16 138
Step 3: Calcular el resto de la div de la suma por 11 y restarlo DE 11 6
Number with check digit 1 2 3 4 5 6 7 8 5
esta funcion retorna el digito verificador de una cadena (los numeros del rut)
<%
'Codigo vereficador Chile - Rodolfo Barriga
'funcion simple devuelve codigo verificador de una ci chilena
Function codigo_veri(rut)
tur=strreverse(rut)
mult = 2
for i = 1 to len(tur)
if mult > 7 then mult = 2 end if
suma = mult * mid(tur,i,1) + suma
mult = mult +1
next
valor = 11 - (suma mod 11)
if valor = 11 then
codigo_veri = "0"
elseif valor = 10 then
codigo_veri = "k"
else
codigo_veri = valor
end if
end function
%>
<%
'Codigo vereficador Chile - Rodolfo Barriga
'funcion simple devuelve codigo verificador de una ci chilena
Function codigo_veri(rut)
tur=strreverse(rut)
mult = 2
for i = 1 to len(tur)
if mult > 7 then mult = 2 end if
suma = mult * mid(tur,i,1) + suma
mult = mult +1
next
valor = 11 - (suma mod 11)
if valor = 11 then
codigo_veri = "0"
elseif valor = 10 then
codigo_veri = "k"
else
codigo_veri = valor
end if
end function
%>
soy de argentina y vendimos a una clliente en chile la cual nos envio el numde RUT GIRO MEDICO y nosotros no sabemos q es.le agradeceria me saquen esa duda. muchas gracias
ESTE CODIGO PARA EL RUT SE PEGA EN LA HOJA. PRESIONA ALT-F11 Y LUEGO VAS HOJA1 HACES DOBLE CLIP Y PEGAS EL CODIGO.
Public Function validarRUT(CadenA As String) As Boolean
Dim I As Byte
Dim Z As Byte
Dim CadenaLimpiA As String
Dim DiG As String
Dim XXXX As Byte
If CadenA <> Empty And Val(CadenA) <> 0 Then
'Limpia Cadena
For I = 1 To Len(CadenA)
If (Mid(CadenA, I, 1)) = "-" Or (Mid(CadenA, I, 1)) = "." Then
'pasa al siguiente espacio
Else
CadenaLimpiA = CadenaLimpiA + Mid(CadenA, I, 1)
End If
Next
'Prepara Variables
CadenA = CadenaLimpiA
DiG = (Mid(CadenaLimpiA, (Len(CadenaLimpiA)), 1))
If Asc(DiG) <= 47 Or Asc(DiG) >= 58 Then
If DiG = "K" Or DiG = "k" Then
DiG = "10"
Else
DiG = "12"
End If
End If
CadenaLimpiA = Empty
For I = 1 To (Len(CadenA) - 1)
CadenaLimpiA = CadenaLimpiA + (Mid(CadenA, I, 1))
Next
CadenA = Empty
I = Empty
I = (Len(CadenaLimpiA))
Z = 2
While I <> 0
If Z <> 8 Then
CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z)
Z = Z + 1
Else
Z = 2
CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z)
Z = Z + 1
End If
I = I - 1
Wend
Z = 11 - (Val(CadenA) - Int((Val(CadenA)) / 11) * 11)
XXXX = Asc(DiG)
If DiG = 0 And Z = 11 Then
validarRUT = True
Else
If Z = DiG Then
validarRUT = True
Else
validarRUT = False
End If
End If
Else
validarRUT = False
End If
CadenA = Empty
CadenaLimpiA = Empty
End Function
********************************************
=SI(validarRUT(A1);"ok";"ERROR")
**********************************************************************
Y ESTO SE COLOCA EN LA HOJA
Public Function validarRUT(CadenA As String) As Boolean
Dim I As Byte
Dim Z As Byte
Dim CadenaLimpiA As String
Dim DiG As String
Dim XXXX As Byte
If CadenA <> Empty And Val(CadenA) <> 0 Then
'Limpia Cadena
For I = 1 To Len(CadenA)
If (Mid(CadenA, I, 1)) = "-" Or (Mid(CadenA, I, 1)) = "." Then
'pasa al siguiente espacio
Else
CadenaLimpiA = CadenaLimpiA + Mid(CadenA, I, 1)
End If
Next
'Prepara Variables
CadenA = CadenaLimpiA
DiG = (Mid(CadenaLimpiA, (Len(CadenaLimpiA)), 1))
If Asc(DiG) <= 47 Or Asc(DiG) >= 58 Then
If DiG = "K" Or DiG = "k" Then
DiG = "10"
Else
DiG = "12"
End If
End If
CadenaLimpiA = Empty
For I = 1 To (Len(CadenA) - 1)
CadenaLimpiA = CadenaLimpiA + (Mid(CadenA, I, 1))
Next
CadenA = Empty
I = Empty
I = (Len(CadenaLimpiA))
Z = 2
While I <> 0
If Z <> 8 Then
CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z)
Z = Z + 1
Else
Z = 2
CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z)
Z = Z + 1
End If
I = I - 1
Wend
Z = 11 - (Val(CadenA) - Int((Val(CadenA)) / 11) * 11)
XXXX = Asc(DiG)
If DiG = 0 And Z = 11 Then
validarRUT = True
Else
If Z = DiG Then
validarRUT = True
Else
validarRUT = False
End If
End If
Else
validarRUT = False
End If
CadenA = Empty
CadenaLimpiA = Empty
End Function
********************************************
=SI(validarRUT(A1);"ok";"ERROR")
**********************************************************************
Y ESTO SE COLOCA EN LA HOJA
http://www.desytec.com/base-del-conocimiento/14-programacion-de-un-validador-de-campos-de-formulario-en-aspnet.html
Ya solucionaste tu problema? te pregunto por que yo tengo la validacion del rut implementada en JavaScript
Hola, tengo una consulta, el código de java que tenías el año pasado, aún lo tienes o ya lo borraste, quiero saber también si se puede implementar para java sin script.
Me lo puedes enviar si lo tienes porfa.
Gracias
Me lo puedes enviar si lo tienes porfa.
Gracias
Hola en mi pagina web puedes encontrar una funcion en php para calcular y verificar el digito verificador del RUT.
http://pi.nks.com.ar/programacion.php
Saludos!
http://pi.nks.com.ar/programacion.php
Saludos!
