Página 1 de 1
NECESITO Validar Rut Visual Basic
Publicado: Vie Jul 16, 2004 5:22 am
por Bock
en dos text (text1 = para los primeros numero) (text2 = para el digito verificador)
solo eso necesito, validar el rut en dos text. gracias
validador de rut
Publicado: Vie Jul 16, 2004 5:52 pm
por hussein anselmi
private sub dig_keypress(keyascii)
' dig (txtdig), rut (txtrut), tambien faltan declarar algunas variables
' y option explicit, pero funciona igual.
' este codigo te permite que al ingresar el digito verificador lo acepte o no.
' ojala te sirva. atte. hussein anselmi
'
husseinanselmi@yahoo.es
r = len(trim(txtrut))
a = 2
for i = r to 1 step - 1
c = val(mid(txtrut,i,1))*2
if a = 8 then
a = 2
end if
a = a +1
s = s + c
next i
resto = s mod 11
dig = str(11 - resto)
if dig = "10" then
dig = "0"
end if
if dig = "11" then
dig = "K"
end if
if dig= ucase(chr(keyascii) then
msgbox" ingreso bien el rut"
else
msgbox "error!!!"
end if
end sub
en muchos lenguajes
Publicado: Mié Sep 15, 2004 1:37 am
por gtavo4
Rut con puntos divisores
Publicado: Lun Mar 21, 2005 1:00 am
por chris
Como logro que al ingresar el rut sin puntos solo con el guion, este cambie automaticamente y se guarde en la base de datos con puntos
Ejemplo:
Lo guardo así 13425568-k
y que cambie a 13.425.568-k
porfa es importande gracias