ARREDONDAR VALORES

 Tópico anterior Próximo tópico Novo tópico

ARREDONDAR VALORES

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#487322 - 21/02/2019 21:57:06

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


  Boa noite, Pessoal!

Pessoal, no estou conseguindo arredondar os valores, esta dando R$ 0,02 centavos diferena
veja como estou fazendo

Private Sub SomarTotalValores()

      Dim i As Integer
      Dim cont1 As Double

      For i = 1 To ListCondPgto.ListItems.Count
                       ListCondPgto.ListItems(i).Selected = True
                      
                       cont1 = cont1 + ListCondPgto.ListItems(i).SubItems(3)
                       txtSomaValores = Format(cont1, []currency[])
        Next
End Sub





#487323 - 21/02/2019 22:48:21

JABA
CABO FRIO
Cadast. em:Agosto/2005


Deixa pra fazer a formao depois do loop, ele que t fazendo a diferena. Se ainda continuar perdendo centavos com o cdigo abaixo, extraia a formatao e veja se fica como o esperado. Se sim, voc ter certeza que o problema na formatao.

Private Sub SomarTotalValores()

      Dim i As Integer
      Dim cont1 As Double

      For i = 1 To ListCondPgto.ListItems.Count
                       ListCondPgto.ListItems(i).Selected = True
                       cont1 = cont1 + ListCondPgto.ListItems(i).SubItems(3)
        Next
      
     txtSomaValores = Format(cont1, []currency[])

End Sub


_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



Resposta escolhida #487324 - 22/02/2019 09:05:19

FFCOUTO
COM LEVY GASPARIAN
Cadast. em:Março/2005


Troque o tipo da varivel cont1 de Double para Currency e no ter mais esse problema.


Cursos de Excel e VB6:
cursoexcelvba.com.br


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LUCS em 22/02/2019 19:29:50