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

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

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

Bom dia!

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


Grande abraço.

Fábio

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.

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)