Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - Como hacer correr una funcion

Life is soft - evento anual de software empresarial
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Como hacer correr una funcion

Autor:MonF (3 intervenciones)
Fecha:11/08/2005 18:40:19
El problema es el siguiente (estoy comenzando en VB)

Quiero validar el digito verificador de un RUT (chile), cree una userform donde ingresar el rut y un commandbutton para hacer correr el programa, pero en una pagina de mi pais saque una funcion para el rut, es la siguiente:

Public Function RutDigito(ByVal Rut As Long) As String
Dim Digito As Integer
Dim Contador As Integer
Dim Multiplo As Integer
Dim Acumulador As Integer

Contador = 2
Acumulador = 0
While Rut <> 0
Multiplo = (Rut Mod 10) * Contador
Acumulador = Acumulador + Multiplo
Rut = Rut \ 10
Contador = Contador + 1
If Contador = 8 Then
Contador = 2
End If
Wend
Digito = 11 - (Acumulador Mod 11)
RutDigito = CStr(Digito)
If Digito = 10 Then RutDigito = "K"
If Digito = 11 Then RutDigito = "0"
End Function

Lo que entiendo es que RUT, deveria ser el rut que ingreso: ejemplo: 13234432

y en RutDigito, me devolveria el Digito Verificador

Ahora como lo uno a la userform y para que corra la funcion. No entiendo nada :(
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Como hacer correr una funcion

Autor:Amalita (12 intervenciones)
Fecha:12/08/2005 00:18:43
no se si entendí bien, si querés ejecutar tu función, por ej. en el evento keypress del textbox donde se escribe el dato, pondrías:

if keyascii=13 then ' que la función se ejecute cuando el operador pulse enter
resultado=RutDigito(txtRUT.text) 'resultado sería una variable que contiene el
end if 'resultado de la función, según tu ejemplo
' K o 0
Comentar