La Web del Programador: Comunidad de Programadores
https://www.lawebdelprogramador.com/foros/Visual-Basic/533298-Como-hacer-correr-una-funcion.html

Como hacer correr una funcion

Como hacer correr una funcion

Publicado por MonF (3 intervenciones) el 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 :(

RE:Como hacer correr una funcion

Publicado por Amalita (26 intervenciones) el 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