Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Runden von versch. Werten
Autor: Mucke
Datum: 06.12.01 17:53
Probiers mal damit: Public Function Runden(Zahlrück As Variant, AnzahlStellen As Integer) As Double Dim Temp As Double, Zehnerpotenz As Long, Minus As Boolean, Zahl As Variant Zahl = Zahlrück 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

Runden von versch. Werten	80	furious	06.12.01 00:26
Re: Runden von versch. Werten	59	Mucke	06.12.01 17:53

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