TKSoft-Online

Unter MS-Access mit einen bestimmen Anzahl von Dezimalstellen Runden PDF Drucken E-Mail
( 1 Vote )
MS-Access Codes - Codeschnipsel Zahlen
  
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr

Problemstellung:

Wie kann ich unter Access mit bestimmen Anzahl von Dezimalstellen Runden? 


Function RoundIt(NumberToRound As Double, DecimalPlace As IntegerAs Double
    Dim Temp As Double

    Temp = Int((NumberToRound * (10 ^ DecimalPlace)) + 0.5) / (10 ^ DecimalPlace)
    RoundIt = CDbl(Temp)
End Function

Aufruf:

Dim x As Double
x = 
RoundIt(1317.4258, 3)


Ergebnis: x = 1317,426

Dim x As Double
x = 
RoundIt(1317.4258, 2)


Ergebnis: x = 1317,43

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


Ergebnis: x = 1317,4

Dim x As Double
x = 
RoundIt(1317.4258, 0)


Ergebnis: x = 1317

DatumKlicks
Total2647
Mi. 236
Di. 224
Mo. 212
So. 205
Sa. 197
Fr. 184
Do. 172
Aktualisiert ( Freitag, den 02. Juli 2010 um 08:29 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173460 Downloads