VB, kleines Problem

[-pHoEnIx-]

Hallo,

mein Kumpel lernt gerad VB und hat ein kleines Problem.

Er schreibt ein kleines Script welches ausrechnen soll wieviel Fluhzeugträger für x Flugzeuge benötigt.

Jäger benötigen 1 Stellplatzt
Bomber benötigen 2 Stellplätze

Flugzeugträgerkapazität = 250

Nun kann man ja schlecht 1,4 Flugzeugträger haben, also soll er imme auf eine logische Zahl aufrunden.

1 = 1
1,1 = 2
1,6 = 2

usw.

So sieht es bis jetzt bei ihm aus :

Private Sub cmdrechner_Click()
Dim a, b, stellplätze
a = Val(txtjäger.Text)
b = Val(txtbomber.Text)
stellplätze = (a + b * 2) / 250
lblAusgabe.Caption = stellplätze
End Sub

Ich hoffe ihr wisst was ich meine, danke schonmal im vorraus...

 

[LisTenEr]

Einfach mal nach Math.ceil() bzw. Math.ceiling(), sowas hat VB sicherlich auch und wenn nicht, dann gibts das irgendwo bestimmt.
-->
stellplaetze = Math.ceil((a + b * 2) / 250)