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