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]Arredondar com vba

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]Arredondar com  vba Empty [Resolvido]Arredondar com vba

    Mensagem  Assis 14/6/2022, 11:12

    Bom dia Amigos

    Esta fórmula devolve 37,00 para o calculo que preciso

    Me.AReceber.Value = Int(Me.Valor.Value * Me.Tempo.Value) + Me.TxtAlmoco.Value

    ´*******************************************************************************


    Esta fórmula devolve 38,00 para o calculo que preciso

    Me.AReceber.Value = Round(Me.Valor.Value * Me.Tempo.Value) + Me.TxtAlmoco.Value


    Mas eu precisava 37,50

    Como fazer

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4914
    Registrado : 20/04/2011

    [Resolvido]Arredondar com  vba Empty Re: [Resolvido]Arredondar com vba

    Mensagem  Silvio 14/6/2022, 14:35

    bom dia / boa tarde.

    tente algo assim...

    Me.AReceber.Value = Abs(Me.Valor.Value * Me.Tempo.Value) + Me.TxtAlmoco.Value


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]Arredondar com  vba Empty Re: [Resolvido]Arredondar com vba

    Mensagem  Assis 14/6/2022, 14:50

    Sílvio

    Com uma pequena formatação funciona direito.


    Me.AReceber.Value = Format(Abs((Me.Valor.Value * Me.Tempo.Value) + Me.TxtAlmoco.Value), "0.00")

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4914
    Registrado : 20/04/2011

    [Resolvido]Arredondar com  vba Empty Re: [Resolvido]Arredondar com vba

    Mensagem  Silvio 14/6/2022, 17:34

    Valeu Assis !!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 3/7/2022, 09:41