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]Arredondamento para cima e para baixo múltiplo de 5

    avatar
    ifabio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 25/11/2011

    [Resolvido]Arredondamento para cima e para baixo múltiplo de 5 Empty [Resolvido]Arredondamento para cima e para baixo múltiplo de 5

    Mensagem  ifabio 24/9/2018, 20:01

    Boa tarde colegas!

    Mais uma vez venho ao fórum para solucionar uma dúvida.


    Preciso que o Access arredonde um número (não moeda), para baixo ou para cima, sempre para o múltiplo de 5 mais próximo. Por exemplo:


    625 > para baixo = 600

    625 > para cima = 650


    Desde já, obrigado mais uma vez a todos.

    Fábio


    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Arredondamento para cima e para baixo múltiplo de 5 Empty Arredondamento para cima e para baixo múltiplo de 5

    Mensagem  good guy 24/9/2018, 21:23

    Olá ifabio,

    Veja se atende com esta função. Onde txtNumero é o nome de uma caixa de texto e cmdConverter é o nome de um botão:

    Código:
    Public Function Converter(dblValor As Double)
    Dim lngNumero As Long

    lngNumero = Me.txtNumero

    If lngNumero Mod 5 <= 0 Then
    dblValor = lngNumero - (5 * 5)
    Me.txtNumero = dblValor
    Else
    dblValor = lngNumero + (5 * 5)
    Me.txtNumero = dblValor
    End If

    End Function

    Chame esta função com um botão:

    Código:
    Private Sub cmdConverter_Click()
    Call Converter(Me.txtNumero)
    End Sub
    Anexos
    [Resolvido]Arredondamento para cima e para baixo múltiplo de 5 AttachmentTesteForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 9 vez(es)
    avatar
    ifabio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 25/11/2011

    [Resolvido]Arredondamento para cima e para baixo múltiplo de 5 Empty Re: [Resolvido]Arredondamento para cima e para baixo múltiplo de 5

    Mensagem  ifabio 25/9/2018, 11:48

    Bom dia!

    Estarei vendo hoje e retorno sem falta. Agradeço pela sua ajuda!


    Grande abraço.

    Fábio
    avatar
    ifabio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 25/11/2011

    [Resolvido]Arredondamento para cima e para baixo múltiplo de 5 Empty Re: [Resolvido]Arredondamento para cima e para baixo múltiplo de 5

    Mensagem  ifabio 25/9/2018, 18:58

    Olá, boa tarde!

    Acabei de fazer os testes e funcionou perfeitamente. Fiz algumas adaptações, pois esqueci de informar que irei usar dois campos, onde o primeiro vai receber o valor com arredondamento para cima e o outro para baixo. Contudo, ficou ótimo e funcional.


    Agradeço muito pela ajuda!

    Grande abraço, Fábio.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Arredondamento para cima e para baixo múltiplo de 5 Empty Arredondamento para cima e para baixo múltiplo de 5

    Mensagem  good guy 25/9/2018, 19:11

    Olá Fábio,

    O fórum todo agradece. Quer saber mais? adquira os meus livros:

    https://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy

    https://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao


    "O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
    Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
    Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)

    Conteúdo patrocinado


    [Resolvido]Arredondamento para cima e para baixo múltiplo de 5 Empty Re: [Resolvido]Arredondamento para cima e para baixo múltiplo de 5

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 02:13