Validar Rut (chile) en ASP

BoBCaT
20 de Febrero del 2010
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

el guille
20 de Febrero del 2010
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

Yuriko
20 de Febrero del 2010
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

rous
20 de Febrero del 2010
Quisiera saber cmo le calculo el digito verificador a cualquier numero (ej: de largo 12) y la union enviarla a un link

Carla Souza Andrade
20 de Febrero del 2010
Soy brasilea y necesito de un RUT para poder completar mis dados en el site EMOL. Cmo devo proceder?

Patagon
20 de Febrero del 2010
El RUT es el Rol nico Tributario, es el nmero del documento de identidad. No podras obtener uno. EOL debera tener la opcin para extranjeros.

sss
20 de Febrero del 2010
Cmo calcular el dgito 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

Rodolfo
20 de Febrero del 2010
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
%>

geraldina
20 de Febrero del 2010
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

LOUIS
20 de Febrero del 2010
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

Jaime
25 de Abril del 2010
http://www.desytec.com/base-del-conocimiento/14-programacion-de-un-validador-de-campos-de-formulario-en-aspnet.html

SERGIO
20 de Febrero del 2010
please, formula para calculo rut

yadira
20 de Febrero del 2010
necesito el codigo fuente

RickHunter
20 de Febrero del 2010
Ya solucionaste tu problema? te pregunto por que yo tengo la validacion del rut implementada en JavaScript

kmikce
20 de Febrero del 2010
Hola, tengo una consulta, el cdigo de java que tenas el ao pasado, an lo tienes o ya lo borraste, quiero saber tambin si se puede implementar para java sin script.
Me lo puedes enviar si lo tienes porfa.
Gracias

Pablo Rosciani
20 de Febrero del 2010
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!

Yadira
20 de Febrero del 2010
validar el numero de da la cedula