Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Damit klappt's
Autor: Alex Krause
Datum: 06.12.01 16:58
Wenn du weißt wie man mit Funktionen umgeht dann müßte dir das hier behilflich sein. Füg sie am besten in enen Modul ein. Public Function Runden(Zahl As Variant, AnzahlStellen As Integer) As Double Dim Temp As Double, Zehnerpotenz As Long, Minus As Boolean If Mid(Zahl, 1, 1) = "-" Then Minus = True Zahl = Abs(Zahl) AnzahlStellen = Abs(AnzahlStellen) Temp = CDbl(Zahl) Zehnerpotenz = 10 ^ AnzahlStellen Runden = (Fix((Temp + 0.5 / Zehnerpotenz) * Zehnerpotenz)) / Zehnerpotenz If Minus = True Then: Runden = CDbl("-" & CStr(Runden)) End Function Cu Alex

Zahlen Runde	59	Mucke	06.12.01 16:50
Damit klappt's	43	Alex Krause	06.12.01 16:58
Re: Damit klappt's	39	Mucke	06.12.01 17:18
Re: Damit klappt's	44	Sascha	07.12.01 10:43
Re: Damit klappt's	73	Mucke	07.12.01 13:48
Re: Damit klappt's	38	Alex Krause	07.12.01 18:27
Re: Damit klappt's	38	Mucke	07.12.01 20:48
Ja schön wenn man die 6te Version von VB hat	77	Alex Krause	07.12.01 21:56

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