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


3 participantes

    Erro de calculo - Correção da condição IF

    avatar
    ClaudioL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 24/03/2023

    Erro de calculo - Correção da condição IF Empty Erro de calculo - Correção da condição IF

    Mensagem  ClaudioL Ter 28 Mar - 8:56

    Bom dia, amigos, poderia me dar uma dica, eu montei um script aonde eu verifico o pedágio , a cobrança é feita a cada 100 kgs.

    Eu montei a seguinte condição:

    If Peso <= 100 Then
                           valorPedagio = Pedagio
                               Else
                    If valorPedagio > 0 Then
                            qtdPedagio = (Peso \ 100) + 1
                            valorPedagio = Pedagio * qtdPedagio
                    End If
                               

    Porém ela não está calculando corretamente, a questão é se a mercadoria tiver até 100 kgs o valor base é R$ 5,88 (isso varia de transportadora) e se for mais tipo 500 Kgs, ele tem que pegar o peso dividir por 100 e multiplicar pela quantidade no caso seria 5.

    Poderiam me ajudar?

    Abs,
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

    Erro de calculo - Correção da condição IF Empty Re: Erro de calculo - Correção da condição IF

    Mensagem  Alexandre Fim Ter 28 Mar - 9:18

    Bom dia Cláudio,

    Pelo que eu entendi, é necessário separar as condições quando peso é até 100 kg e acima de 100 kg, conforme abaixo:

    Código:



        '-- Calculo com peso até 100 kg ----------------
        If Peso <= 100 Then
            valorPedagio = Pedagio
            Exit Sub '-- após o cálculo, a rotina para aqui
        End If
        '-----------------------------------------------
       
       
        '-- Calculo com peso acima de 100 kg -----------
        If Peso > 100 Then
            If valorPedagio > 0 Then
                qtdPedagio = (Peso \ 100) + 1
                valorPedagio = Pedagio * qtdPedagio
            End If
        End If
        '-----------------------------------------------



    Espero ter ajudado

    Att

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Erro de calculo - Correção da condição IF Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Erro de calculo - Correção da condição IF Empty Re: Erro de calculo - Correção da condição IF

    Mensagem  Alexandre Neves Sáb 24 Jun - 12:49

    Boa tarde
    Como anda a dúvida?
    O colega que ajudou ( e outros que tentaram) merecem uma resposta
    Reveja a descrição, pois a primeira parte não combina com a segunda parte da sua descrição. Se existirem condições hierárquicas, descreva-as


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Erro de calculo - Correção da condição IF Empty Re: Erro de calculo - Correção da condição IF

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qua 22 maio - 21:57