TKSoft-Online

Unter MS-Access beliebig Runden PDF Drucken E-Mail
( 1 Vote )
MS-Access Codes - Codeschnipsel Zahlen
Geschrieben von: TommyK   
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr
Tags:

Problemstellung:

Wie kann ich unter Access beliebig Runden? 


Function Round_New(Wert As Variant, Rundungszahl As Double) As Double
Dim Res As Variant

    If IsNull(Wert) Then Exit Function
        
    Res = (Wert / Rundungszahl)

    Round_New = CLng(Res + IIf(Wert > 0, 0.000000000001, _
                -0.000000000001)) * Rundungszahl

End Function

Aufruf:

Dim x As Double
x = Round_New(1317.4258, 0.05)


Ergebnis: x = 1317,45

Dim x As Double
x = Round_New(1317.4258, 0.1)


Ergebnis: x = 1317,4

Dim x As Double
x = Round_New(1317.4258, 0.5)


Ergebnis: x = 1317,5

Dim x As Double
x = Round_New(1317.4258, 1)


Ergebnis: x = 1317

Dim x As Double
x = Round_New(1317.4258, 5)


Ergebnis: x = 1315

Dim x As Double
x = Round_New(1317.4258, 10)


Ergebnis: x = 1320

Dim x As Double
x = Round_New(1317.4258, 100)


Ergebnis: x = 1300

 

DatumKlicks
Total2841
Mi. 233
Di. 224
Mo. 213
So. 205
Sa. 191
Fr. 186
Do. 173
Weiter >
Aktualisiert ( Freitag, den 02. Juli 2010 um 08:28 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173460 Downloads