COMO VERIFICAR MARGEM DE MAIOR E MENOR
Olá, sou novo aqui no forum, mas trabalho com vb, estou com o seguinte trecho
If rs2!valPago + valPago <> CDbl(Format$(rs3!valPago, [Ô]##0.00[Ô])) Then
quero adicionar uma verificação, pois nem sempre o rs3!valPago vai ser igual a soma dos dois valores, quero por uma margem de 0,1 para mais e para menos, por exemplo rs3!vlPago pode ser igual a 300,1
e a soma rs2!vlPago + vlPago = 300 quero que no caso o resultado na soma tiver nessa margem de 0,1 para mais ou para menos ele não entre no If. O que vcs indicariam, criar um novo if dentro desse ou fazer alteração nesse If?
If rs2!valPago + valPago <> CDbl(Format$(rs3!valPago, [Ô]##0.00[Ô])) Then
quero adicionar uma verificação, pois nem sempre o rs3!valPago vai ser igual a soma dos dois valores, quero por uma margem de 0,1 para mais e para menos, por exemplo rs3!vlPago pode ser igual a 300,1
e a soma rs2!vlPago + vlPago = 300 quero que no caso o resultado na soma tiver nessa margem de 0,1 para mais ou para menos ele não entre no If. O que vcs indicariam, criar um novo if dentro desse ou fazer alteração nesse If?
Cara simplifica seu código.
Dim dResultado As Double
dResultado = (CDbl(rs2!valPago + valPago) - CDbl(Format$(rs3!valPago, [Ô]#0.00[Ô])))
If (dResultado < Cdbl([Ô]-0.10[Ô])) Or (dResultado > CDbl([Ô]0.10[Ô])) then
MsgBox [Ô]Valores fora da margem de R$ 0,10 e/ou -R$ 0,10[Ô]
End If
Espero ter ajudado
Dim dResultado As Double
dResultado = (CDbl(rs2!valPago + valPago) - CDbl(Format$(rs3!valPago, [Ô]#0.00[Ô])))
If (dResultado < Cdbl([Ô]-0.10[Ô])) Or (dResultado > CDbl([Ô]0.10[Ô])) then
MsgBox [Ô]Valores fora da margem de R$ 0,10 e/ou -R$ 0,10[Ô]
End If
Espero ter ajudado
Certo, obg pela a dica, vou fazer isso aqui agora :D
E ai conseguiu resolver o seu problema?
Caso tenha conseguido encerre o tópico valeu
Caso tenha conseguido encerre o tópico valeu
Tópico encerrado , respostas não são mais permitidas