RE:Validar RUC - 11Digitos -Perú
anota esto: (te voy a hacer el trabajo).
sub c1.-click
funtion digito(rut as variant)as variant
dim suma as double,mult as double,resto as double,i as integer
suma=0
mult=1
for i=len(mid) to 1 step-1
suma=suma+val(mid(rut,i,1)) * mult
mult=mult +1
if mult=8 then mult =2
next i
resto=suma-11*suma/11
digito=11 - resto
if digito=10 then digito ="k"
end funtion
end sub
..."debes declarar la funcion en modulo "
seguro te funciona.-ademas debes tener 2 caja de twxto,una para el rut ponle la propiedad maxlenght en la cantidad que tu quieras y la otra caja de texto para que devuelva el digiti verificador.
espero te sirva.
pd:sigue practicando y estudiando mas que todos esa es la clave.,
