[Resolvido]Arredondamento de preço

Boa tarde Srs!

Será que poderiam me ajudar nessa?

Preciso que, ao informar o precoCusto, o sistema me informe no campo precoSugerido o preço de custo x4 (vezes 4) e caso o resultado dê um valor picado, ele arredonde para cima ou para baixo, sempre com final 90 centavos. Por exemplo, comprei um produto por 9,90, que multiplicado por 4 dá 39,60, mas preciso que retorne 39,90 e se caso desse 39,49, arredondasse para baixo em 38,90.

Uso uma fórmula no excel que dá certinho, mas não consegui converter isso em VBA no access. Segue abaixo a fórmula que uso no Excel..

=SE(Soma([precoCusto]-Int([precoCusto]))<=0,5;(Int([precoCusto]*4))-0,1;(Int([precoCusto]*4))+0,9)

Olá Bruno Krauss,

Troque o SE por IIF e teste:

=IIF(Soma([precoCusto]-Int([precoCusto]))<=0,5;(Int([precoCusto]*4))-0,1;(Int([precoCusto]*4))+0,9)

ou assim
=IIF(([precoCusto]-Int([precoCusto]))<=0,5;(Int([precoCusto]*4))-0,1;(Int([precoCusto]*4))+0,9)

Abraço

Salve ahteixeira!!

Então cara, eu já havia tentado assim, mas a nomenclatura e os critérios do Access possuem algumas diferenças do Excel. Na parte do "<=0,5" ele diz que "Erro de compilação. Era esperado: )". Detalhe, no Excel eu uso essa fórmula no campo "precoSugerido", já no Access eu preciso que fique no evento "Após atualizar" do campo "precoCusto".

Olá Bruno Krauss,

Teste assim:

Código:

IIf(([precoCusto] - Int([precoCusto])) <= 0.5, (Int([precoCusto] * 4)) - 0.1, (Int([precoCusto] * 4)) + 0.9)

Se não funcionar partilhe a base de dados com pequeno exemplo para se testar.

Abraco

Olá, infelizmente não funfou.

Segue BD resumido. Gostaria que, após informar o "Preço Custo", o sistema atualizasse o campo "Preço Sugerido" com base nos critérios do código que passei.

Obg!

Olá Bruno Krauss,

Alterei o nome dos campos no formulario, coloquei um "x" no ínicio.
Depois o seguinte código no evento "depois de atualizar":

Código:

Private Sub xprecoCusto_AfterUpdate()
    Me.xprecoSugerido = IIf(([xprecoCusto] - Int([xprecoCusto])) <= 0.5, (Int([xprecoCusto] * 4)) - 0.1, (Int([xprecoCusto] * 4)) + 0.9)
End Sub

Verifique se é o pretendido, segue o meu teste:
cld.pt/dl/download/938edc63-b1ba-4ac3-b82d-c1dc69f33fe4/BD_1_rev.zip

Abraço

Cara deu certinho. Muito obrigado pela ajuda!!!

Olá Bruno Krauss,

Obrigado pelo retorno, o fórum agradece.

Abraço

Boa tarde!

Reabri esse tópico porque surgiu um probleminha no código abaixo:

Código:

Me.precoSugerido = IIf((([precoCusto] * 4) - (Int([precoCusto]) * 4)) < 0.5, (Int([precoCusto]) * 4) - 0.1, (Int([precoCusto] * 4)) + 0.9)

Se eu informar o custo de 1,20, ele multiplica por 4 (1,20 * 4 = 4,80) e retorna 4,90. Se informo 1,12 (1,12 * 4 = 4,48) ele retorna 3,90. Se informo 10,00 (10,00 * 4 = 40,00) ele retorna 39,90. Até aí tudo bem. Mas se eu informar 1,25 (1,25 * 4 = 5,00) ele deveria retornar 4,90 mas está retornando 5,90.

Já mexi de tudo quanto é jeito e não sei qual critério aplicar. Da forma abaixo também não funcionou.

Código:

Me.precoSugerido = IIf((([precoCusto] * 4) - (Int([precoCusto]) * 4)) < 0.5 Or (([precoCusto] * 4) - (Int([precoCusto]) * 4)) = 0, (Int([precoCusto]) * 4) - 0.1, (Int([precoCusto] * 4)) + 0.9)


Alguém sabe como solucionar?

Boa noite Krauss

Em anexo

Saludos

Opa, blz Franklin!

Hoje que vi seu exemplo aqui, dei uma olhada por cima e jajá vou testar e te retorno. Aparentemente ficou muito interessante vc ter criado uma função em um módulo.

Use a função "Round" para arredondar valores.
Ex.:

Format(Round("1250,36",1),"#,##0.#0")
Resultado: 1.250,40

Boa sorte!!

Franklin, funfou perfeitamente!!! Muito obrigado a todos pelas ajudas prestadas!

Eu ainda incrementei o código para que em casos onde por exemplo o custo informado for R$ 20,10 - multiplicando por 4 (que é o padrão) ficaria 80,40 e o sistema arredondaria para 80,90. Com meu incremento ele arredonda para 79,90 deixando o preço mais "bonito". Sempre que o primeiro número antes da vírgula for zero, ele subtrai 1 real e em seguida arredonda os centavos.

Eis como ficou o código do módulo - declarei a string "Inteiro" e acrescentei um "If":

Código:

Public Function DecOk(Num As Double)
  
   Dim Inteiro As String
   Dim Decimais As String
   Dim Devolver As Double

   Inteiro = Int(Num)
   Decimais = Num - Int(Num)
   Decimais = Mid$(Format(Decimais, "0.00"), 2, 2)

   If Val(Right(Inteiro, 1)) = 0 Then
      Devolver = (Int(Num) - 1) + 0.9
      
   ElseIf Decimais = "" Then 'Se o valor dos centavos for vazio
      Devolver = Int(Num) + 0.9 'Devolve o número inteiro + 0,90 (noventa centavos)
   Else
      If Val(Right(Decimais, 1)) > 1 Then 'Se a última casa decimal for maior ou igual a 1
         Devolver = Int(Num) + 0.9 'Devolve o número inteiro + 0,90 (noventa centavos)
      Else
         Devolver = (Int(Num) - 1) + 0.9 'Devolve o número inteiro - 1,00 (um real) + 0,90 (noventa centavos)
      End If
   End If

   DecOk = Devolver

End Function

Que bom Bruno!!!