Round up

[Kallewirsch]

Hallo zusammen,

ich schon wieder......

wie kann ich mit "round up" den Mittelwert aufrunden?

z1 = ValF(InputRequester("Zahl 1","Gib Wert 1 ein:",""))
z2 = ValF(InputRequester("Zahl 2","Gib Wert 2 ein:",""))
z3 = ValF(InputRequester("Zahl 3","Gib Wert 3 ein:",""))
z4 = ValF(InputRequester("Zahl 4","Gib Wert 4 ein:",""))
Mittelw.d = (z1 + z2 + z3 + z4) / 4
MessageRequester("Inf","Mittelwert von Wert 1 bis Wert 4: "+StrF(Mittelw))

Danke für die Hilfe

Gruß
Kalle

[ts-soft]

Das sollte man der Hilfe entnehmen können

Code: Alles auswählen

z1 = Round(z1, #PB_Round_Up)

[hjbremer]

etwas ausführlicher

Code: Alles auswählen

max = 4
summe.d = 0

For j = 1 To max
   ipr$ = InputRequester("Zahl " + Str(j), "Gib Zahl ein:","")
   ReplaceString(ipr$, ",", ".", #PB_String_InPlace )
   summe + ValD(ipr$)
Next

mw = Round(summe / max, #PB_Round_Nearest)

MessageRequester("Inf","Mittelwert: " + Str(mw))