MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  ifabio em 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


    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Arredondamento para cima e para baixo múltiplo de 5

    Mensagem  good guy em 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
    TesteForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 3 vez(es)

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  ifabio em 25/9/2018, 11:48

    Bom dia!

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


    Grande abraço.

    Fábio

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  ifabio em 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.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Arredondamento para cima e para baixo múltiplo de 5

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

    Olá Fábio,

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

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]


    "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)

      Data/hora atual: 11/12/2018, 11:47