DÊVIDA SOBRE O IF
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
PRANLOOSE, se sua dúvida foi sanada, encerre o tópico e pontue o colaborador que mais contribuiu para a resposta correta.
Tópico encerrado , respostas não são mais permitidas