USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Duvida com variavel double
CERRI
MARICA
RJ - BRASIL
ENUNCIADA !
Postada em 26/10/2012 15:27 hs            
Galera alguém sabe porque acontece isso? No debug o valor do .item aparece certinho(4375,8) mas quando passa pra variavel ele vai como 43758,00,
ele recebe esse 0 a mais.  

buscadebito = buscadebito(43758,00) + DGDEBCRED.Item(1, idg).Value(4375,8)




porque na hora de receber a variavel faz isso?
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 26/10/2012 16:09 hs            
é assim colega quando você coloca um valor direto para a variavel, ele não pode conter virgula, e sim um ponto no lugar da virgula ou seja

Dim Valor as Double

valor = 4375,8 ' é errado
valor = 4375.8 ' é o correto

valor = "4375,8" ´' correto

Msgbox Valor

é correto
   
CERRI
MARICA
RJ - BRASIL
ENUNCIADA !
Postada em 26/10/2012 16:11 hs            
Desculpa o erro eu digitei 4375,8 mas no debug aparece 4375.8 ele usa ponto,
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 26/10/2012 16:25 hs            
tem como postar o codgo completo que mostra esse erro ou criar um para simular o erro
   
CERRI
MARICA
RJ - BRASIL
ENUNCIADA !
Postada em 26/10/2012 16:28 hs            
  For idg = 0 To (DGDEBCRED.RowCount - 2)

                                If Not IsDBNull(DGDEBCRED.Item(2, idg).Value) Then 'DGDEBCRED.CurrentRow.Cells("VLCREDITODataGridViewTextBoxColumn").Value
                                    buscacredito = buscacredito + DGDEBCRED.Item(2, idg).Value 'DGDEBCRED.CurrentRow.Cells("VLCREDITODataGridViewTextBoxColumn").Value
                                    somabuscacredito = somabuscacredito + buscacredito
                                End If
                                If Not IsDBNull(DGDEBCRED.Item(1, idg).Value) Then 'DGDEBCRED.CurrentRow.Cells("VLDEBITODataGridViewTextBoxColumn").Value
                                    buscadebito = buscadebito + DGDEBCRED.Item(1, idg).Value 'DGDEBCRED.CurrentRow.Cells("VLDEBITODataGridViewTextBoxColumn").Value
                                    somabuscadebito = somabuscadebito + buscadebito
                                End If
                            Next

Nessa parte que ele faz isso, achei que formatando direto no datagridview fosse me ajudar, fui la em edit columns e marquei as duas vl_crdito e vl_debito para tipo currency C2, mas quando rodo o programa o datagrid só mostra a vl_debito formatada, sera que o problema esta ai?
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página