Tocayo!!
En un sistema de obras sociales yo utilizo esta función para validar el
ultimo dígito del CUIL/CUIT (digito verificador) espero te sea de utilidad.
Saludos.
Carlos Adolfo Codesido
Function Doydigitocuit(cui As String) As String
Dim sum As Double, verc As Integer
Doydigitocuit = ""
sum = Val(Mid(cui, 1, 1)) * 5 + Val(Mid(cui, 2, 1)) * 4 + Val(Mid(cui,
3, 1)) * 3 + Val(Mid(cui, 4, 1)) * 2
sum = sum + Val(Mid(cui, 5, 1)) * 7 + Val(Mid(cui, 6, 1)) * 6 +
Val(Mid(cui, 7, 1)) * 5 + Val(Mid(cui, 8, 1)) * 4 + Val(Mid(cui, 9, 1)) * 3
sum = sum + Val(Mid(cui, 10, 1)) * 2
verc = 11 - sum + Int(sum / 11) * 11
If verc = 11 Then verc = 0
Doydigitocuit = verc
End Function
-----Mensaje original-----
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Carlos
Bernardo Maggiotti
Enviado el: Jueves, 28 de Septiembre de 2006 16:09
Para: vbusers List Member
Asunto: [vbusers] Validacion de CUIT
Buenas...
Ya se que esto se posteo como mil veces, pero mil una no deberia ser
molestia...
Alguien tiene a mano el codigo VB (o link) para verificar CUITs?
Saludos y gracias de antemano...
CarlosMag
_________________________________________________________________
Consigue el nuevo Windows Live Messenger
http://get.live.com/messenger/overview
