[Resolvido]Calculo digito controlo

Já fiz várias pesquisas mas não consegui encontrar. Alguém me pode ajudar com código de calculo para digito de controlo.
São 6 dígitos e o ano está separado e são 2 dígitos.
Assim:

Bom dia,
Não sei que pesquisa fez
Veja
https://www.maximoaccess.com/search?mode=searchbox&search_keywords=verificador&show_results=topics

Esses eu vi mas nao compreendi como adaptar, eu quero colocar um numero de 6 dígitos e separadamente mais dois e gera o digito com esses 6 mais os 2.

Boa tarde,
Considere como tendo 8 digitos e depois formate como 6+2

Peço desculpa mas em vba não sou assim tão bom que vá descobrir sem ajuda.

Boa noite,

Código:

Function dg(str6Hifen2 As String) As Byte
    'calcula dígito verificador para números do tipo 123456-78
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    On Error Resume Next
    Dim lngIntermedio As Long
    
    If Not str6Hifen2 Like "######-##" Then
        err.Raise 6
        MsgBox "Erro " & CStr(err.Number) & " " & err.Description, , str6Hifen2
        err.Clear
    Else
        lngIntermedio = 2 * Mid(str6Hifen2, 9, 1)
        lngIntermedio = lngIntermedio + 3 * Mid(str6Hifen2, 8, 1)
        lngIntermedio = lngIntermedio + 4 * Mid(str6Hifen2, 6, 1)
        lngIntermedio = lngIntermedio + 5 * Mid(str6Hifen2, 5, 1)
        lngIntermedio = lngIntermedio + 6 * Mid(str6Hifen2, 4, 1)
        lngIntermedio = lngIntermedio + 7 * Mid(str6Hifen2, 3, 1)
        lngIntermedio = lngIntermedio + 8 * Mid(str6Hifen2, 2, 1)
        lngIntermedio = lngIntermedio + 9 * Mid(str6Hifen2, 1, 1)
        lngIntermedio = lngIntermedio Mod 11
        If lngIntermedio = 0 Or lngIntermedio = 1 Then
            dg = 0
        Else
            dg = 11 - lngIntermedio
        End If
    End If
End Function


Chame dg("1234556-78")

Boa noite, tentei desta forma mas dá numero errado.

O teu codigo dá "Erro 6 Overflow"
Onde estou a errar?

Boa tarde,
Já revi o código, mas chamou "1234556-78" que não corresponde ao padrão que pediu

Peço desculpa mas não estou a compreender Chame dg("1234556-78") foi o que disseste.
Coloco o que onde?

Boa tarde,
Tem de ir vendo outras dúvidas, quer para entender melhor a linguagem quer podendo ir ajudando outros colegas
Chamar onde pretender.
Quer num controlo? TxtFormatado=dg("123456-78")
Quer em consulta actualização? UPDATE Tabela SET Formatado=dg('123456-78')
Colocou a dúvida do cálculo do dígito, supomos que saiba como precisa utilizar

Peço desculpa Alexandre Neves mas já tentei de varias formas e não consigo.
Coloquei a duvida porque necessito mas nunca usei por isso não sei.

Já consegui alguma coisa com a bd da mensagem 7 mas o digito de controlo não bate certo, tentei
002010/14
002011/14
002012/14
002013/14
001134/15
001135/15
001136/15
001137/15
001138/15
001139/15
001140/15
Mas não gera os números que quero que deveria ficar:
002010/14.1
002011/14.0
002012/14.8
002013/14.6
001134/15.2
001135/15.0
001136/15.9
001137/15.7
001138/15.5
001139/15.3
001140/15.7

Boa noite,
Eu segui a orientação de (http://) arlindo-correia.com/280201.html
Onde se orientou para verificar o digito de controlo?

Orientei-me nesta página com o exemplo que fornece:

(https://)bytes.com/topic/access/answers/899107-how-use-mod-11-a

O código fonte não tenho acesso é gerado pela DGPJ antiga DGCI e não é publico por isso não sei como é feito.

Existe algumas explicações aqui na portaria 1223A-91 mão não encontro o código na net nem no site de DGPJ.

(http://www.)dgpj.mj.pt/DGPJ/sections/leis-da-justica/livro-iv-leis-criminais/pdf4/p-1223a-1991/downloadFile/file/P_1223A_1991.pdf?nocache=1182172523.3

Boa tarde,
Será

Código:

Function dg(str6Hifen2 As String) As Byte
    'calcula dígito verificador para números do tipo 123456-78
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    On Error Resume Next
    
    If Not (str6Hifen2 Like "######-##" Or str6Hifen2 Like "######/##") Then
        err.Raise 6
        MsgBox "Erro " & CStr(err.Number) & " " & err.Description, , str6Hifen2
        err.Clear
    Else
        dg = ((Val(Left(str6Hifen2, 1))) * 10 + (Val(Mid(str6Hifen2, 2, 1))) * 9 + (Val(Mid(str6Hifen2, 3, 1))) * 8 + (Val(Mid(str6Hifen2, 4, 1))) * 7 + (Val(Mid(str6Hifen2, 5, 1))) * 6 + (Val(Mid(str6Hifen2, 6, 1))) * 5 + (Val(Mid(str6Hifen2, 7, 1))) * 4 + (Val(Mid(str6Hifen2, 8, 1))) * 3 + (Val(Mid(str6Hifen2, 9, 1))) * 2) Mod 11
    End If
End Function


Boa noite, continua-me a dar erro, não sei onde estou a errar o código. Podes-me tentar adaptar o código na bd da mensagem 7, agradeço.

Boa noite,
Vê que o resultado não coincide com o pretendido devido ao código de conversão

Estou a ver testei com os números da mensagem 12 e não bateu certo.
Alguma ideia?

Bom dia,
Tem de saber como se faz o cálculo para se poder implementar

Como não consegui e ninguém me conseguiu ajuda por falta de conhecimento da minha parte como se faz o calculo para poder implementar, dou como resolvido, obrigado a todos.