PROBLEMAS COM SOMA DE CAMPOS DECIMAIS
PESSOAL O SEGUINTE, ESTOU COM UM PROBLEMAO...
TENHO UM FORM COM VARIOS CAMPOS PARA DIGITAR VALORES DECIMAIS POR EXEMPO 50,35 ... UM DOS CAMPOS RECEBE A SOMATORIA DOS OUTROS CAMPOS, SÓ“ QUE ESTA ARREDONDANDO OS VALORES, POR EXEMPLO:
CAMPO1.TEXT = 35,50
CAMPO2.TEXT = 35,00
STR1 = FORMAT$(CAMPO1.TEXT, "#####,##")
STR2 = FORMAT$(CAMPO2.TEXT, "#####,##")
TOTAL = VAL(STR1) + VAL(STR2)
ELE DA O VALOR DE 71 SEM PONTO NEM VIRGULA E ARREDONDADO...
ALGUEM PODERIA ME AJUDAR?
PS.: JA FORMATEI OS CAMPOS DA SEGUINTE FORMA E NAO FUNCIONOU :
FORMAT$(STR, "#.###,##")
FORMAT$(STR, "#,##0.00")
FORMAT(STR, "#.###,00")
TENHO UM FORM COM VARIOS CAMPOS PARA DIGITAR VALORES DECIMAIS POR EXEMPO 50,35 ... UM DOS CAMPOS RECEBE A SOMATORIA DOS OUTROS CAMPOS, SÓ“ QUE ESTA ARREDONDANDO OS VALORES, POR EXEMPLO:
CAMPO1.TEXT = 35,50
CAMPO2.TEXT = 35,00
STR1 = FORMAT$(CAMPO1.TEXT, "#####,##")
STR2 = FORMAT$(CAMPO2.TEXT, "#####,##")
TOTAL = VAL(STR1) + VAL(STR2)
ELE DA O VALOR DE 71 SEM PONTO NEM VIRGULA E ARREDONDADO...
ALGUEM PODERIA ME AJUDAR?
PS.: JA FORMATEI OS CAMPOS DA SEGUINTE FORMA E NAO FUNCIONOU :
FORMAT$(STR, "#.###,##")
FORMAT$(STR, "#,##0.00")
FORMAT(STR, "#.###,00")
é o seguinte, a variavel que faz calculos com decimais é a Double então, para a soma use:
dim TOTAL as Double
TOTAL = CDBL(STR1) + CDBL(STR2)
o cdbl é para transformar para double...
Falow
dim TOTAL as Double
TOTAL = CDBL(STR1) + CDBL(STR2)
o cdbl é para transformar para double...
Falow
blz rafael depois de muito tentar consegui logo apos eu postar a duvida... valeu foi desta forma q eu fiz, mas agora tenho só mais uma duvida, por exemplo nos campos se eu coloco 35,50 qdo perde o foco ele aparece: 35,5 como eu acertaria isso...
pode ser assim
No evento lostfocus do textbox:
txtbox.text = format(txtbox.text, "##0.00")
No evento lostfocus do textbox:
txtbox.text = format(txtbox.text, "##0.00")
Tópico encerrado , respostas não são mais permitidas