|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Verificar a Validade do PIS
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Public Function isPIS(ByVal pPIS As String) As Boolean
Dim Conta As Integer, Soma As Long, Tabela As String
isPIS = False: Tabela = "3298765432"
If Val(pPIS) = 0 Then
Exit Function
ElseIf Len(pPIS) <> 11 Then
Exit Function
End If
For Conta = 1 To 10
Soma = Soma + Val(Mid(pPIS, Conta, 1)) * Val(Mid(Tabela, Conta, 1))
Next
If IIf(Int(Soma Mod 11) <> 0, 11 - Int(Soma Mod 11), Int(Soma Mod 11)) <> Val(Mid(pPIS, 11, 1)) Then
Exit Function
End If
isPIS = True
End Function
|
|
|
|
|
