Função para validar o nº contribuinte:
Public
Function IsValidContrib(ByVal contrib As String) As Boolean
Dim s As String = contrib
Dim c As Char
Dim i, checkDigit As Integer
If (s.Length = 9) Then
c = s.Chars(0)
If (c.Equals("1"c) Or c.Equals("2"c) Or c.Equals("5"c) Or c.Equals("6"c) Or c.Equals("8"c) Or c.Equals("9"c)) Then
checkDigit = Val(c) * 9
For i = 2 To 8
checkDigit += Val(s.Chars(i - 1)) * (10 - i)
Next
checkDigit = 11 - (checkDigit
Mod 11)
If (checkDigit >= 10) Then checkDigit = 0
If (checkDigit = Val(s.Chars(8))) Then Return True
End If
End If
Return False
End Function
Já agora sabem se é possivél validar um NIB, ou o nº dum cheque?
posted on Saturday, July 22, 2006 7:16 AM