Validando CGC

[marcelinho 0]

e ae galera blzera?eu fiz uma dll para validar CGC e quando eu ponho um cgc invalido ele acusa invalido mais qdo eu ponho um cgc valido ele da o seguinte erro:

Tipo de erro:DLLs (0x800A0006)Overflow/projeto/vb/cnpj/valcgc.asp, line 20

a minha pagina asp é essa:

<%Set CGC = Server.CreateObject("DLLs.cFuncoes")Result = CGC.ValidaCGC(01109184000195)Set CGC = nothingif Result = true thenresponse.write "cnpj valido"elseresponse.write "cnpj invalido"end if%>

e a função que eu fiz no VB ta assim:

Function ValidaCGC(cgc As String) As IntegerDim retorno, a, i, j, d1, d2If Len(cgc) = 8 And Val(cgc) > 0 Thena = 0j = 0d1 = 0For i = 1 To 7a = Val(Mid(cgc, 1, i))If (i Mod 2) <> 0 Thena = a * 2End IfIf a > 9 Thenj = j + Int(a / 10) + (a Mod 10)Elsej = j + aEnd IfNext id1 = IIf((j Mod 10) <> 0, 10 - (j Mod 10), 0)If d1 = Val(Mid(cgc, 8, 1)) ThenValidaCGC = TrueElseValidaCGC = FalseEnd IfElseIf Len(cgc) = 14 And Val(cgc) > 0 Thena = 0i = 0d1 = 0d2 = 0j = 5For i = 1 To 12 Step 1a = a + (Val(Mid(cgc, i, 1)) * j)j = IIf(j > 2, j - 1, 9)Next ia = a Mod 11d1 = IIf(a > 1, 11 - a, 0)a = 0i = 0j = 6For i = 1 To 13 Step 1a = a + (Val(Mid(cgc, i, j)) * j)j = IIf(j > 2, j - 1, 9)Next ia = a Mod 11d2 = IIf(a > 1, 11 - 1, a)If (d1 = Val(Mid(cgc, 13, 1)) And d2 = Val(Mid(cgc, 14, 1))) ThenValidaCGC = TrueElseValidaCGC = FalseEnd IfElseValidaCGC = FalseEnd IfEnd IfEnd Function

alguem poderia me ajudar??valeu

[Salgado 4]

Cara, o problema está em algum dos cálculos, crie um form no VB e tente debugar por lá, creio que será mais fácil.

[marcelinho 0]

eu testei ela no vb e a funçao funcionou normal!!!funfou bonitinho!!

[Aroldo Zanela 0]

Colega,Quando você declara (Dim) as variáveis, não está declarado o tipo. Isto pode gerar problemas de overflow.