PROBLEMA AO CONVERTER VALORES

RICARDO.RAPA 09/12/2015 15:10:30
#454914
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!
KERPLUNK 09/12/2015 15:17:30
#454917
Você deveria isolar os dois valores para comparar:

     If CInt(P2.Text) > CInt(T1.Text) Then
            P5.Text = P2.Text
        Else
            P5.Text = T1.Text
        End If
RICARDO.RAPA 09/12/2015 22:44:43
#454942
If Convert.ToDecimal(P2.Text) > Convert.ToDecimal(T1.Text) Then
P5.Text = Convert.ToDouble(P2.Text)
Else
P5.Text = Convert.ToDouble(T1.Text)
End If

Resolvi assim.
Tópico encerrado , respostas não são mais permitidas
Voltar