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