Leren programmeren: BMI

We werken dit voorbeeld uit als VBA functie.

Function bmi(lengteincm As Integer, gewichtinkg As Double) As String
Dim bmi_berekend As Integer
bmi_berekend = gewichtinkg / (lengteincm * lengteincm)
Select Case bmi_berekend
Case Is < 20
bmi = "ondergewicht"
Case Is > 25
bmi = "overgewicht"
Case Else
bmi = "BMI OK"
End Select
End Function