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 :(
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 :(
Valora esta pregunta


0