Calcular Digito verificador en Excel - Código fuente


Public Function GenDV(ByVal Rut As Long) As String

    Dim dgv      As Integer
    Dim cont    As Integer
    Dim mlp    As Integer
    Dim acm  As Integer
    cont = 2
    acm = 0

    While Rut <> 0
      mlp = (Rut Mod 10) * cont
      acm = acm + mlp
      Rut = Rut \ 10
      cont = cont + 1

      If cont > 7 Then
        cont = 2
      End If

    Wend
    dgv = 11 - (acm Mod 11)
    GenDV = CStr(dgv)
    
    If dgv = 10 Then GenDV = "K"
    If dgv = 11 Then GenDV = "0"

End Function


Implementación de la Función Calcular Digíto verificador en Excel



Código fuente - ¿Cómo Calcular el Dígito Verificador en?

PHP

Javascript

Visual Basic 6


Anuncio - Hosting Web SiteGround - Diseñado para administración web. Velocidad, Herramientas y Soporte de primera. Clic aquí.