Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
digito verificador en visual basic.net
Enviado por mauricio jimenez el día 7 de mayo de 2005
como puedo sacar el digito verificador con visual basic.net lo necesito urgente porfavor
Enviado por Jorge Garrido (XAPA) el día 1 de junio de 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
Foros de debate
Visual Basic
