Te lo paso
Public Function VerificarCuit(strCuit As String) As Boolean
Dim intVerifArry(1 To 10) As Integer
Dim intSuma As Integer
Dim intDig As Integer
Dim i As Long
intVerifArry(1) = 5
intVerifArry(2) = 4
intVerifArry(3) = 3
intVerifArry(4) = 2
intVerifArry(5) = 7
intVerifArry(6) = 6
intVerifArry(7) = 5
intVerifArry(8) = 4
intVerifArry(9) = 3
intVerifArry(10) = 2
strCuit = Replace(strCuit, "-", "")
If Len(strCuit) < 11 Then
VerificarCuit = False
Exit Function
End If
For i = 1 To 10
intSuma = intSuma + Val(Mid(strCuit, i, 1)) * intVerifArry(i)
Next i
intDig = 11 - (intSuma Mod 11)
If intDig = 11 Then
intDig = 0
ElseIf intDig = 10 Then
intDig = 9
End If
VerificarCuit = IIf(intDig = Val(Right(strCuit, 1)), True, False)
End Function
Espero que te sirva
Saludos
Gabriel
----- Original Message -----
From: "Carlos Bernardo Maggiotti" <[EMAIL PROTECTED]>
To: "vbusers List Member" <[email protected]>
Sent: Thursday, September 28, 2006 4:09 PM
Subject: [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
