Postada em 05/08/2011 16:11 hs
Ola galera, to precisando muito da ajuda de vocês, vou tentar ser bem claro:
É o seguinte: eu tenho uma função num modulo que deve calcular o DV(digito verificador) de um certo número, ate ai tudo bem, pois a função pega a minha sequencia de números e faz a multiplicação de cada número da sequência, o multiplicador vai variando de 2 até nove, assim está funcionando perfeitamente. Só que agora preciso que os multiplicadores seja 3, 7, 9 e 1 nessa sequência, se alguem puder me ajudar agradeço.
abaixo to colocando o código que hoje funciona
Public Function Modulo11(FCampoAux As String)
Dim i As Integer
Dim FSoma As Integer
Dim FDv As String
Dim FPeso As Integer
Dim FAux As Integer
FPeso = 9
FSoma = 0
FDv = ""
FAux = 0
If Not IsNumeric(FCampoAux) Then
Modulo11 = ""
MsgBox ("nao é numérico")
Exit Function
End If
caracter = ""
For i = Len(FCampoAux) To 1 Step -1
caracter = Mid(FCampoAux, i, 1)
FAux = Val(caracter) * FPeso
FSoma = FSoma + FAux
FPeso = FPeso + 1
If FPeso < 2 Then FPeso = 9
Next i
FDv = FSoma Mod 11
FDv = (11 - FDv)
If FDv = 10 Then FDv = 0
If FDv = 11 Then FDv = 1
Modulo11 = FDv
End Function
|
