disculpen mi ignorancia
que es CUIT???????
----- Original Message -----From: Gustavo MaslatonTo: DesarrolloVB@...Sent: Thursday, April 29, 2004 3:09 PMSubject: Re: [VB] Control Nro. de CUIT
Esta funcion devuelve verdadero o falso deacuerdo al C.U.I.T. que se coloque.
Function Cuit(strCuit As String) As Boolean
Dim intBase(9) As Integer
Dim intNumero(9) As Integer
Dim intCalculo As Integer
Dim intVerificador As Integer
Dim i As Integer
Dim x As Integer
Cuit = False
x = 5
For i = 0 To 3
intBase(i) = x
x = x - 1
Next
x = 7
For i = 4 To 9
intBase(i) = x
x = x - 1
Next
If Len(strCuit) <> 13 Then
Exit Function
End If
If Mid(strCuit, 3, 1) <> "-" Or Mid(strCuit, 12, 1) <> "-" Then
Exit Function
End If
For i = 0 To 1
intNumero(i) = Mid(strCuit, i + 1, 1)
intCalculo = intCalculo + (intNumero(i) * intBase(i))
Next
For i = 2 To 9
intNumero(i) = Mid(strCuit, i + 2, 1)
intCalculo = intCalculo + (intNumero(i) * intBase(i))
Next
intCalculo = 11 - (intCalculo - (Int(intCalculo / 11) * 11))
Select Case intCalculo
Case 11
intCalculo = 0
Case 10
intCalculo = 9
End Select
If intCalculo = Mid(strCuit, 13, 1) Then
Cuit = True
End If
End Function
"Biotti, Ruben" <ruben@...> wrote:Hola Amigos.
Estoy necesitando controlar los NUMEROS DE CUIT al cargarlos en el sistema,
osea que sean numeros validos.
Alguin me puede ayudar??
Muchas Gracias
Ruben
------------------------------
DesarrolloVB:
Desarrollo de Software en Microsoft Visual Basic
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloVB@...
Suscribirse........: DesarrolloVB-Subscribe@...
Desuscribirse......: DesarrolloVB-Unsubscribe@...
Administrador......: DesarrolloVB-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB
Página de la lista
de la plataforma
Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET
------------------------------
http://www.navegana.com/dinero/chanzes.html
Mobile ComputingGustavo J. MaslatonAnalista Programador
¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo
------------------------------
DesarrolloVB:
Desarrollo de Software en Microsoft Visual Basic
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloVB@...
Suscribirse........: DesarrolloVB-Subscribe@...
Desuscribirse......: DesarrolloVB-Unsubscribe@...
Administrador......: DesarrolloVB-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB
Página de la lista
de la plataforma
Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET
------------------------------
http://www.navegana.com/dinero/chanzes.html
Enviar correo
