DÊVIDA SOBRE O IF

PRANLOOSE 09/12/2015 10:57:14
#454896
Citação:

:
:
Assumindo que a sua variavel resultado seja do tipo numérica, basta você interver a ordem de análise das condições.
Outra coisa. como já tive vários problema por questão de arredondamento, sugiro usar o CCur para converter o resultado para currency e avaliar.

If CCur(resultado) > 40 Then
lblImcresult.Caption = [Ô]Obesidade III (mórbida)[Ô]
ElseIf CCur(resultado) > 35 Then
lblImcresult.Caption = [Ô]Obesidade II (severa)[Ô]
ElseIf CCur(resultado) > 30 Then
lblImcresult.Caption = [Ô]Obesidade I[Ô]
ElseIf CCur(resultado) > 25 Then
lblImcresult.Caption = [Ô]Acima do peso[Ô]
ElseIf CCur(resultado) >= 18.5 Then
lblImcresult.Caption = [Ô]Peso normal[Ô]
ElseIf CCur(resultado) > 17 Then
lblImcresult.Caption = [Ô]Abaixo do peso[Ô]
Else
lblImcresult.Caption = [Ô]Muito abaixo do peso[Ô]
End If


Amanhã vou tentar esta lógica e posto sobre.

Desde já agradeço



Desculpe a demora em responder, mas agradeço a ajuda e funcionou perfeitamente.

Obrigado
DAMASCENO.CESAR 09/12/2015 11:30:31
#454898
PRANLOOSE, se sua dúvida foi sanada, encerre o tópico e pontue o colaborador que mais contribuiu para a resposta correta.
Página 2 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas