Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
http://www.usandoaccess.com.br/dicas/dica41.asp?id=1#inicio
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
Function fncCalculaDVNossoNumero(sequencia)
Dim fator As Byte
Dim total
Dim numero
Dim resto
Dim resultado
Dim i As Integer
fator = 2
total = 0
For i = Len(sequencia) To 1 Step -1
numero = Mid(sequencia, i, 1)
If fator > 9 Then
fator = 2
End If
numero = numero * fator
total = total + numero
fator = fator + 1
Next
resto = total Mod 11
resultado = 11 - resto
If resultado > 9 Then
fncCalculaDVNossoNumero = 0
Else
fncCalculaDVNossoNumero = resultado
End If
End Function
