Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Aufrunden von Kommazahl auf eine Ganzzahl
Autor: Emil75
Datum: 18.07.09 01:08
Hallo ich habe hier ein Problem mit der Aufrundung von Kommazahlen und weiss leider nicht wo mein Fehler liegt.Die IF Anweisung hat mir die Suche ausgespuckt. Ein Dank an den Verfasser . Private Sub_Command1_Click() Dim a, b, c, d, e, Zahl As Double, Ergebnis As Integer txtf.Text = Ergebnis a = Val(txta.Text) / 100 b = Val(txtb.Text) / 200 c = Val(txtc.Text) / 500 d = Val(txtd.Text) / 750 e = Val(txte.Text) / 1500 Zahl = a + b + c + d + e If Int(Zahl) <> Zahl then Ergebnis = Int(Zahl) + 1 End Sub So ich möchte halt das die Texteingabe durch die Werte dividiert werden . Wenn die "Zahl" eine Kommazahl ist soll halt auf die nächst höhere Zahl aufgerundet werden. Wenn ich jetzt aber zum Beispiel jeweils eine 1 in die 5 einzelnen Textfelder eingebe und das dann ausrechnen lasse bekomme ich immer eine 0 als Ergebnis obwohl ja eigentlich, laut der IF Anweisung, eine 1 erscheinen sollte. Wo liegt hier mein Problem bzw mein Gedankenfehler? LG Emil Beitrag wurde zuletzt am 18.07.09 um 01:09:53 editiert.

Aufrunden von Kommazahl auf eine Ganzzahl	4.185	Emil75	18.07.09 01:08
Re: Aufrunden von Kommazahl auf eine Ganzzahl	2.285	Emil75	18.07.09 03:11
Re: Aufrunden von Kommazahl auf eine Ganzzahl	1.974	Zardoz	18.07.09 16:48
Re: Aufrunden von Kommazahl auf eine Ganzzahl	1.910	Emil75	19.07.09 13:46
Re: Aufrunden von Kommazahl auf eine Ganzzahl	1.901	Zardoz	19.07.09 19:35
Re: Aufrunden von Kommazahl auf eine Ganzzahl	1.859	Emil75	20.07.09 11:23
Re: Aufrunden von Kommazahl auf eine Ganzzahl	1.954	effeff	20.07.09 14:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen