digito verificador en visual basic.net

mauricio jimenez
01 de Junio del 2008
como puedo sacar el digito verificador con visual basic.net lo necesito urgente porfavor

Jorge Garrido (XAPA)
01 de Junio del 2008
hola soy alumno de inacap.
y se puede hacer de la sigt manera.
'Public Function CalculaDigito(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
' End While
' Digito = 11 - (Acumulador Mod 11)
' RutDigito = CStr(Digito)
' If Digito = 10 Then RutDigito = "K"
' If Digito = 11 Then RutDigito = "0"
'End Function

pero tienes que hacerlo en una funcion.