MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial)

    Tityus
    Tityus
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 19/05/2012

    [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial) Empty Problemas com cálculo de módulo números grandes (Processo Judicial)

    Mensagem  Tityus 16/4/2013, 21:51

    Olá Amigos

    Peço novamente vossa ajuda.

    Estou trabalhando em um módulo para o tratamento e validação de processos judiciais no Brasil. O formato destes é NNNNNNN-DV.AAAA.J.TR.OOOO, com um total de 20 dígitos.

    para a verificação do DV, tenho que testar a seguinte equação (mudando a posição do DV e extraindo os pontos e traços):

    NNNNNNNAAAAJTROOOODV Mod 97 = 1

    modificar a string tudo bem, mas o problema é que não consigo tratar esta string de 20 caracteres como número, na hora de extrair o Módulo. Alguém pode me ajudar nisso?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial) Empty Re: [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial)

    Mensagem  Avelino Sampaio 17/4/2013, 00:11

    Olá

    Vc pode usar a função Cdec() para transformar a string em um número, porem a função MOD não irá suportar um número grande desse.

    Tente utilizar a seguinte formula:

    resultado = cdec(ValorString) - int(cdec(valorString)/97) * 97

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Tityus
    Tityus
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 19/05/2012

    [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial) Empty Re: [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial)

    Mensagem  Tityus 17/4/2013, 04:25

    Testei com uns oito números de processo, e parece que deu certo. Muito Obrigado pela ajuda, Avelino.

    Pretendo divulgar o código do módulo para referência, devo fazê-lo no repositório de códigos VBA?
    Obrigado novamente pela ajuda.

    Conteúdo patrocinado


    [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial) Empty Re: [Resolvido]Problemas com cálculo de módulo números grandes (Processo Judicial)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 19:10