| Usuario |
Calculo del CUIT |
cieguito
1 Mensaje(s) |
| Enviado - 5/7/2002 |
| ? |
Hola, necesitaria si alguien me facilitaria como se calcula el CUIT a base de un DNI.
Desde ya muchas gracias.
Cieguito |
| ? |
|
fmarredo
342 Mensaje(s)
|
| Enviado - 26/7/2002 |
| ? |
Te comento que no es posible calcular el cuit/cuil ?nicamente con el DNI ya que el prefijo del mismo depende del sexo de la persona.
Te paso la forma de verificar si el nro COMPLETO es v?lido o no (deber?as validar adem?s el prefijo dependiendo el sexo.
Public Function CUITValido(strCUIT As String) As Boolean
Dim i As Integer
Const FACTORES = "54327654321" ' N?meros por los que hay que multiplicar cada d?gito del CUIT
Dim lngSuma As Integer
On Error GoTo Errores
If Len(strCUIT) <> 11 Then Exit Function 'debe tener 11 d?gitos
If IsNumeric(strCUIT) Then
For i = 1 To 11
lngSuma = lngSuma + (Val(Mid(strCUIT, i, 1)) * Val(Mid(FACTORES, i, 1)))
Next i
CUITValido = (lngSuma Mod 11 = 0)
End If
Errores:
End Function
Fabio |
| ? |
|
|
|
?Microsoft Certified
');}
document.write('