PROBLEMA AO CONVERTER VALORES

RICARDO.RAPA 09/12/2015 15:05:48
#454913
Bom dia pessoal. Tenho dois problema sobre esse assunto:

1º

If Int(P2.Text > T1.Text) Then
P5.Text = P2.Text
Else
P5.Text = T1.Text
End If

essa comparação só dar certo se o valor for menor que 10 se o p2.text for 10,0 e o t1.text for 5,7 por exemplo ele dar como se 5,7 fosse maior que 10. tentei o usar CDbl e também não seu certo. em vb6 dava certo. Alguém pode me ajudar?

2º
dim b5a as double
b5a = CDbl (P5.Text) + CDbl (P6.Text) + CDbl (P7.Text) + CDbl (P7.Text)
TF.Text = b5a / 4 [ô]resultando 6,35

[ô]valor dos textbox
p5.text = 7,0
p6.text = 7,0
p7.text = 5,7
p8.text = 7,8

correto é = 6,875

To vacilando nas conversões de valores alguém pode me dar uma luz.

Grato!
RICARDO.RAPA 09/12/2015 15:12:00
#454916
Errei a categoria é ASP.NET
JABA 09/12/2015 19:43:28
#454938
No primeiro, tente asssim:

      If Cdbl(P2.Text) > Cdbl(T1.Text) Then
            P5.Text = P2.Text
        Else
            P5.Text = T1.Text
        End If


E se quiser fazer com o arredondamento, faça assim:

      If Convert.ToInt32(P2.Text) > Convert.ToInt32(T1.Text) Then
            P5.Text = P2.Text
        Else
            P5.Text = T1.Text
        End If



No segundo, você acabou repetindo o P7 no final, o certo seria P8. Dai ficaria assim:

        dim b5a as double
        b5a = CDbl (P5.Text) + CDbl (P6.Text) + CDbl (P7.Text) + CDbl ([txt-color=#e80000]P8.Text[/txt-color])
        TF.Text = b5a / 4

MOUSER 08/02/2016 16:04:38
#457373
Conseguiu?
Tópico encerrado , respostas não são mais permitidas
Voltar