Hi!
Hier 2 Möglichkeiten, um zu eine ganzen Zahl zu kommen:
Int-, Fix-Funktionen (Beispiel) - von der MSDN-CD
In diesem Beispiel wird veranschaulicht, wie die Funktionen Int und Fix den ganzzahligen Teil einer Zahl zurückgeben. Bei negativen Zahlen liefert die Int-Funktion die erste ganze negative Zahl, die kleiner oder gleich der übergebenen Zahl ist, während die Fix-Funktion die erste negative ganze Zahl liefert, die größer oder gleich der übergebenen Zahl ist.
Dim Zahl1
Zahl1 = Int(99.8) ' Liefert 99.
Zahl1 = Fix(99.2) ' Liefert 99.
Zahl1 = Int(-99.8) ' Liefert -100.
Zahl1 = Fix(-99.8) ' Liefert -99.
Zahl1 = Int(-99.2) ' Liefert -100.
Zahl1 = Fix(-99.2) ' Liefert -99.
Übrigens solltest du immer überprüfen, ob eine Eingabe gültig ist.
Der User könnte ja (unabsichtlich?) Text oder wirres Zeug eingeben, und dein Programm baut einen unschönen Absturz.
mfg
WB
|