[Resolvido]Gerar digito controlo BI

Alguém sabe o código ou tem um exemplo para gerar o digito de controlo do antigo Bilhete de Identidade Português?
Não é para validar é mesmo para gerar.

Boa noite;

Precisaria saber como é feito o calculo do digito verificador mais acredito que não

fuja muito desse exemplo que postei que gera cnpj válido.

Olá toyebom

Leia este artigo:
mat.uc.pt/~picado/SistIdent/mistBI.html

E tem esse fórum tmb.
portugal-a-programar.pt/forums/topic/1869-o-famoso-numero-do-quadradinho-no-bi/

boa sorte

Ola a todos;

Já existe aqui desde 2012;

https://www.maximoaccess.com/t9344-validar-nif-nib-e-bi-de-portugal#74852

Usem sempre a busca do fórum por favor.

Obrigado JPaulo já tinha visto esse exemplo mas eu quero é que gere o digito em vez de o validar.
No teu exemplo tem-se conhecimento do digito mas eu não tenho o digito por isso tenho de o gerar.

Boa noite,
Utilize a função

Código:

Function BiDv(NrBI As String) As String
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim DV As Long
   
    BiDv = format(NrBI, "00000000")
    DV = Mid(BiDv, 8, 1) * 2
    DV = DV + Mid(BiDv, 7, 1) * 3
    DV = DV + Mid(BiDv, 6, 1) * 4
    DV = DV + Mid(BiDv, 5, 1) * 5
    DV = DV + Mid(BiDv, 4, 1) * 6
    DV = DV + Mid(BiDv, 3, 1) * 7
    DV = DV + Mid(BiDv, 2, 1) * 8
    DV = DV + Mid(BiDv, 1, 1) * 9
    Select Case DV Mod 11
    Case 0 Or 1
        BiDv = NrBI & "0"
    Case Else
        BiDv = NrBI & 11 - DV Mod 11
    End Select
End Function

Desculpa Alexandre, nesta parte do digito sou muito leigo. Consegues-me criar uma bd de exemplo para eu estudar como aplicar o código é que já dei algumas cabeçadas no pc e não descobri como aplicar, sei que tenho de chamar o código mas não sei como.
Obrigado.

Olá a todos,

Nuno, cole o código num módulo.
Depois talvez seja melhor alterar de:
Function
Para:
Public Function

Assim fica disponível para os forma, consultas, etc

Para testar, invocamos a função, tal como fazemos para calcular a idade, passamos a data de nascimento à função.

Neste caso, invocamos a função, passando o nr. do BI sem o digito verificador.
Por exemplo crie uma consulta com o nr. do BI
Depois noutro campo coloque:

DigitoVerificador: BiDV([NomeCampoComNrBI])

E teste.

Abraço

Alexandre neves, o teu código funciona contudo existe um erro, caso termine em 0 acrescenta um numero ou seja, em vez de ficar 293469350 fica 2934693511, alguma ideia?

Boa tarde,
Existe o BI 293469350? Julgo que não, que só tem até 8 algarismos e o número é que estará mal. Confirme

Olá a todos,

Nuno, efetivamente é conforme o colega Alexandre disse.
Tive oportunidade de testar e de verificar que realmente está a calcular o dígito como 11.

Para regularizar a função, onde está:

Código:

       BiDv = NrBI & 11 - DV Mod 11

altere por:

Código:

       BiDv = NrBI & (11 - DV) Mod 11

Abraçoa todos

Efetivamente esse numero não existe mas está correto, não é numero de BI mas é um outro que utiliza o mesmo do módulo 11
O numero 29346935 retorna o numero 11 e deveria retornar o numero 0

o formato final é que fica com os 9 dígitos juntando o de controlo como resultado final
Deveria ficar
293469350
fica
2934693511

Se colocar
BiDv = NrBI & (11 - DV) Mod 11
fica
29346935-11
ou seja
Numero       --->29346935
D. Controlo  --->0

E fica
Numero       --->29346935
D. Controlo  --->11

O exemplo que o JPaulo dá na mensagem 4 mostra como proceder ao tratamento desse erro mas não sei aplicar. Se der para aplicar ao código do Alexandre Neves será mais fácil já que funciona na perfeição só gera os dois dígitos em vez de 1 em alguns casos.

Olá Nuno,

Verifique melhor como está a fazer, veja o teste com o nº 29346935




Se pretende através da função apenas obter o dígito de verificação e depois pode concatenar com o nº, efetue a alteração conforme imagem:



Abraço

Continua com o mesmo problema ve:

Por exemplo o 29346935 deveria retornar 0 e não 11 e o 29346949 também 0 e não 11

Olá Nuno,

O exemplo que disponibilizou, não tem a alteração da mensagem nº 11, veja:



Leia com atenção e proceda conforme sugestão.
Abraço

Obrigado, já alterei ficou resolvido.

Olá a todos, obrigado pela contribuição!
Em especial ao moderador Alexandre Neves que criou o código da solução.

Nuno, obrigado pelo retorno.