CALCULO IMC E ICQ

MHDSERAFS23 11/01/2011 19:29:06
#361928
Galera, boa tarde
estou usando o seguinte codigo para calcular o imc

Try
If Me.PesoTextBox.Text.Trim = [Ô][Ô] And Me.TextBox32.Text.Trim = [Ô][Ô] Then
MsgBox([Ô]Preencha os campos para obter o resultado![Ô], MsgBoxStyle.Information, [Ô]::CAMPO VAZIO::[Ô])
Me.PesoTextBox.Focus()
ElseIf IsNumeric(PesoTextBox.Text) And IsNumeric(TextBox32.Text) Then
decPeso = Me.PesoTextBox.Text
decAltura = Me.TextBox32.Text
decPeso /= decAltura ^ 2
decIMC = decPeso
Me.IMCTextBox.Text = Math.Round(decIMC, 2)
End If
Catch ex As Exception
MsgBox(ex.Message, , [Ô]::ERRO::[Ô])
End Try

porém não consigo inserir valor com virgula no campo alturatextbox
alguem poderia me dizer onde estou errando
RODRIGOFERRO 11/01/2011 19:35:49
#361930 Resposta escolhida
Amigao boa noite voce ja nao tem um topico sobre isso ?

Abraços
MHDSERAFS23 12/01/2011 00:29:22
#361956
para aqueles que se interessarem, o calculo de imc esta correto, basta na tabela os campos estarem como texto
se tiver como numerico não da certo
Tópico encerrado , respostas não são mais permitidas
Voltar