|
|
Postada em 15/02/2007 15:15 hs
boa tarde a todos eu estou usando assim, mais ele não somar valores de 1,50
Dim TOT As Integer
For i = 1 To Key
TOT = TOT + Val(FG1.TextMatrix(i, 4))
Next i
TXTNP.Text = Format(TOT, "###,###,##0.00")
Command3.Enabled = True
e quando usu TOT = TOT + (FG1.TextMatrix(i, 4)) resultado 2,00 TOT = TOT + VAL(FG1.TextMatrix(i, 4)) resultado 1,00
|
|
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 15/02/2007 15:20 hs
experimenta substituir a virgula por ponto |
|
|
|
Edson479
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/02/2007 15:23 hs
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 15/02/2007 16:43 hs
claro q não... agora q eu vi vc colocou TOT como inteiro seria Dim tot as variant ou dim tot as single... e não dim tot as integer |
|
|
|
|
|
Postada em 16/02/2007 10:42 hs
é isso aí, vc pode tb usa double, é muito bom para valores. |
|
|
|
