CONDICIONAL ENTRE DOIS NÊMEROS NÃO FUNCIONA

LEAO10 10/04/2014 20:20:03
#437173
Olá Galera...

Estou com uma tremenda dúvida, em algo que seria simples:

No código abaixo, a comparação deveria dar falso, mas está dando verdadeiro

Dim N1 As Long
Dim N2 As Long

[txt-color=#0000f0] Text1.Text = [Ô]5.6[Ô]
Text2.Text = [Ô]6[Ô]

N1 = Text1.Text
N2 = Text2.Text

If N1 > N2 Then
MsgBox [Ô]O primeiro é maior[Ô]
End If[/txt-color]

  • Até 5.5 ele não dá o resultado positivo, mas a partir de 5.6, ele dá como positivo, e queria que desse somente a partir de 6



    •
    OMAR2011 10/04/2014 20:53:59
    #437175
    Tire as aspas.
    Faça o teste.
    MARCELO.TREZE 10/04/2014 21:40:59
    #437177     Resposta escolhida
    Faça o seguinte utilize currency que assim terá uma precisão nos resultados

    Private Sub Command1_Click()
     Dim N1 As Currency
        Dim N2 As Currency

        N1 = CCur(Text1.Text)
        N2 = CCur(Text2.Text)

        If N1 > N2 Then
            MsgBox [Ô]O primeiro é maior[Ô]
        End If

    End Sub



    e agora faça os testes, veja bem procure utilizar virgula, o ponto pode dar um resultado errado pela interpretação do numeral, ou seja 1.000 com ponto é igual a MIL, e 1,0000 é igual a um.
    LEAO10 14/04/2014 11:22:31
    #437253
    Realmente, tem que usar a vírgula no lugar do ponto.

    Valeu Marcelo.
    Tópico encerrado , respostas não são mais permitidas
    Voltar