RUMUS MENGHITUNG BERAT BADAN IDEAL

Cara menghitung berat badan yang ideal adalah :

Contoh tinggi badan kita 170 cm
maka : Batas atas berat badan = 23 x ( 170 cm / 100 ) ^ 2
= 66,47 kg
Batas bawah berat badan = 18 x ( 170 cm / 100 ) ^ 2
= 52,02 kg

Function untuk Pemrograman VB.

Public Function BMI(BB As Double, TB As Double) As Double
BMI = BB / (TB / 100) ^ 2
BBB = 18 * (TB / 100) ^ 2
BBA = 23 * (TB / 100) ^ 2
If BMI < 18 Then
KN = "Underweight"
ElseIf BMI >= 18 And BMI <= 23 Then
KN = "Normal"
ElseIf BMI > 23 And BMI <= 30 Then
KN = "Overweight"
ElseIf BMI > 30 Then
KN = "Obesitas"
End If
End Function