🚀 go-pugleaf

"Hugo A." <terreno2002PLEASENOSPAM@hotmail.com> escribi� en el mensaje 
news:dmq0oi$top$1@news.nivel5.cl...
>y c�mo es el c�lculo matem�tico para verificar el d�gito ?
El sue�o de anoche me impidi� buscar bien :)

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


http://www.dcc.uchile.cl/~mortega/ortega.cl/validarrut/visual_basic.html


--
 RCL

> "RobertoCL" <rcl2020NOSPAM@hotmail.com> escribi� en el mensaje 
> news:dmoh5p$6q0$1@news.nivel5.cl...
>> Alguien tendr� entre sus cachureos la clase, o el modulo o la funci�n 
>> para validar el RUT, en visual basic .net para que la postee por favor. 
>> Supongo que la funci�n en vb6 sirve, la tenia pero se me perdi�.
>>
>> --
>> RCL
>>
>>
>>
>
>