7 respuestas a este tema

[Jose Ossa]

Si alguien alguna vez ha necesitado validar los rut en una planilla excel les adjunto un macro que programé hace algunos años.

Procedimiento:
- Abrir el editor de visual basic dentro del excel (ALT+F11)
- Insertar -> modulo
- Pegan el siguiente codigo.

Public Function dvrut(rut)
' Por Jose Ossa Monge 2006'
 rut = Replace("0000" & rut, ".", "", 1) 
 If InStr(1, rut, "-") > 0 Then rut = Left(rut, InStr(1, rut, "-") - 1) 
 rut = Right(rut, 8) 
 suma = 0 
 For i = 1 To 8 
 suma = suma + Val(Mid(rut, i, 1)) * Val(Mid("32765432", i, 1)) 
 Next i 
 dv = 11 - (suma Mod 11) 
 If dv = 10 Then dv = "k" 
 If dv = 11 Then dv = 0 
 dvrut = dv 
 End Function

Despues, cuando estan en la hoja ingresan un rut sin dv en una celda (por ejemplo A1) y en la celda A2 escriben =dvrut(A1) y les devolerá el digito verificador de ese rut.

Este tema ha sido editado por Jose Ossa: 24 March 2010 - 12:13 PM

[Sago7]

Buen aporte, te ganaste un puntito de karma...

[Sago7]

Encontre por ahi una pagina donde aparece la rutina para validar rut en diferentes lenguajes.


Les dejo el link.

Validad RUT

[Gespenstt]

Ercelente +1

[Gespenstt]

+1

[Avatar242]

Espero que este tb les sea util....

http://www.dcc.uchil....cl/validarrut/


saludos!

[k4nnon.]

#include<stdio.h>
#include <stdlib.h>
#include <math.h>
main(){
	double aux,rut,num;
int z,k,s;
int n,t,ok;
int v[7];
int f[8];
char dv;

					  
	
	printf("\nIngrese el RUT : ");
	scanf("%lf", &rut);
	printf("\nIngrese su digito validador : ");
	scanf("%s", &dv);
  
  
	aux = rut;
	n = int(log10(rut))+1;
  
	for(z=n-1;z>0;z--){
if (z>0) {v[z]=int(aux/pow(10,z));aux = aux - v[z]*pow(10,z);}
}
num=0;
	for(z=n-1;z>0;z--){
num =  num + v[z]*pow(10,z);
}
	v[0]=rut-num;
  
	s = 0;
  
	for(z=0;z<6;z++){
	f[z]=z+2;
	}				
	for(z=6;z<8;z++){
	f[z]=z-4;
	}  
  
	for(z=0;z<n;z++){
	s = s + v[z]*f[z];
	}
		
	k = s-11*int(s/11);
	t=11-k;
  
  
	ok = 0;
	if((t==10)&&(dv=='k')) {ok=1;}
	if((t==11)&&(dv=='0')) {ok=1;}
	if((t<10)&&(dv-48==t)) {ok=1;}
  

	if (ok==1) {printf("\n El rut es correcto\n");}
	else {printf("\n El rut es falso\n");}

	
system("pause");
}

aca otro programa hecho por mi. la gracia del programa es que no usa getchar y ademas usa codigo ascii para validar el k. estan en c

saludos.

[SebaGonzalez]

tienes razon... pero esta es super clonada ps :/ en todos lados siempre encuentras validadores de rut