Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Arredondamento de v...
 
Notifications
Clear all

Arredondamento de valores

 
2024 - VBA & Macros
Post Recente por Rilton 12 anos atrás
8 Posts
3 Usuários
0 Reactions
1,466 Visualizações
RSS
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

boa tarde,

estou com um problema em um código. Criei uma rotina que faz uns calculos automaticamente, e esses calculos, na maior parte das vezes, são precedidos de números depois da virgula ( 1,369) e quando vou salvar o cadastro feito, os numeros aparecem arredondados, por exemplo: de 1,56 ele muda para 2. Queria saber como fazer para esses números, quando salvos, não fossem arredodados.
segue o modelo do código que estou usando:
Private Sub Calcular_Valores()

Dim TT_Valores As Double
Private Sub Calcular_Valores()


Dim TT_SubTotal As Double

TT_SubTotal = TT_Valores

If IsNumeric(txtTempodeslocamento.Text) = True Then TT_SubTotal = TT_SubTotal + CDbl(txtTempodeslocamento.Text)
If IsNumeric(txtTempoexecucao.Text) = True Then TT_SubTotal = TT_SubTotal + CDbl(txtTempoexecucao.Text)
If IsNumeric(txtTempoparada.Text) = True Then TT_SubTotal = TT_SubTotal + CDbl(txtTempoparada.Text)

If IsNumeric(txtQexecutores) = True Then
  'para percentagem (para nós )
  'ou porcentagem (para vós)
   If CDbl(TT_SubTotal) <> 0 Then
     TT_SubTotal = TT_SubTotal * CDbl(txtQexecutores.Text)
   End If
End If
'Total Final
txtHhtotal.Text = TT_SubTotal
End Sub

OBS: Meu banco de dados fica no access, será que é isso o problema?

 
Postado : 14/11/2012 1:52 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelo trecho do codigo, aparentemente nada errado, deveria retornar corretamente sem "arredondamento" , como estão definidos esses campos no BD??

 
Postado : 14/11/2012 2:10 pm
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Anexe a planilha compactada para nós podermos analisar.

Sds,

Henrique Ronconi

 
Postado : 14/11/2012 2:48 pm
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Boa noite,

Reinaldo, os campos no banco de dados estão definidos como Números.
Estou enviando em anexo o formulário para posterior análise

 
Postado : 14/11/2012 4:44 pm
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Rilton,

Não encontrei nesta sessão do seu programa nenhum valor que estivesse sendo apresentado com valores após a vírgula. Inclusive em sua base ACCESS não encontrei valores após a vírgula nos campos das tabelas.

Você poderia ser um pouco mais específico para podermos achar o problema.

Aguardo seu retorno.

Abraço,

Henrique Ronconi

 
Postado : 14/11/2012 5:41 pm
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Rilton,

Já encontrei o seu problema. É no ACCESS. Mude o tamanho dos campos para DOUBLE pois você colocou como INTEIRO LONGO.
Por isso não está aceitando casas decimais.

Abraço,

Henrique Ronconi

 
Postado : 14/11/2012 5:49 pm
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Hronconi,

Por isso mesmo, quando eu efetuo o cadastro, os números são cadastrados como números inteiros e não como deveriam ser, dessa forma, no meu banco de dados sempre vão ficar com os números inteiros. Quando eu jogo os dados no frmcadastro minha txthhtotal, até então, calcula normalmente. o problema está quando o registro é inserido no banco. exemplificando, quando coloco os dados, minha txthhtotal calcula certo (EX: 1,36) quando clico em salvar o número é arredondado para (1) e esse número (1) vai para o banco.

 
Postado : 14/11/2012 5:50 pm
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Hronconi,

Valeu, muito obrigado. Eu nunca iria descobrir isso.
Obrigado mesmo!

 
Postado : 14/11/2012 5:55 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico