Mjesto Mijaci
Na granici BiH i Hrvatske: Ženu ugrizao poskok dok je brala mladi luk, hospitalizirana u Splitu
50 min
13
54
Komentari (1)
Povratak na članak
NAPOMENA: Komentarisanje članaka na portalu Klix.ba dozvoljeno je samo registrovanim korisnicima. Molimo korisnike da se suzdrže od vrijeđanja, psovanja i vulgarnog izražavanja. Komentari odražavaju stavove isključivo njihovih autora, koji zbog govora mržnje mogu biti i krivično gonjeni. Kao čitatelj prihvatate mogućnost da među komentarima mogu biti pronađeni sadržaji koji mogu biti u suprotnosti sa vašim vjerskim, moralnim i drugim načelima i uvjerenjima. Svaki korisnik prije pisanja komentara mora se upoznati sa Pravilima i uslovima korištenja komentara.
pu
prije 11 godina
m = CStr(InputBox("ukucajte masu u kilogramima"))
h = CStr(InputBox("ukucajte visinu u centimetrima"))
Podesi m: Podesi h: m = CSng(m): h = CSng(h)
MsgBox "BMI (indeks tjelesne mase) je:" _
& vbCrLf & Round(((m * 1.3) / ((h / 100) ^ 2.5)), 1)
Public Sub Podesi(ByRef e)
If Mid(CStr(3 / 2), 2, 1) = "." Then
ee = CLng(InStr(1, e, ",", 1))
If ee > 0 Then e = CStr(Left(e, ee - 1) & "." & Right(e, Len(e) - ee))
else
ee = CLng(InStr(1, e, ".", 1))
If ee > 0 Then e = CStr(Left(e, ee - 1) & "," & Right(e, Len(e) - ee))
End If
End Sub
Public Sub Podesi(ByRef e)
If Mid(CStr(3 / 2), 2, 1) = "." Then
ee = CLng(InStr(1, e, ",", 1))
If ee > 0 Then e = CStr(Left(e, ee - 1) & "." & Right(e, Len(e) - ee))
else
ee = CLng(InStr(1, e, ".", 1))
If ee > 0 Then e = CStr(Left(e, ee - 1) & "," & Right(e, Len(e) - ee))
End If
End Sub
