www.donkarl.com?FAQ2.1 - "even"

08/04/2008 - 11:22 von Meggy Kantert | Report spam
Liebe Experten,

dank www.donkarl.com?FAQ2.1 kann ich Round und RoundUp in meiner Access 2003
.mdb erfolgreich nutzen. Nun brauche ich Gerade() bzw. Even(), also Runden
immer auf die nàchste gerade Zahl. Habe schon ausprobiert und viel gesucht,
aber diese Schlüsselwörter bescheren mir nur jede Menge Excel-Lösungen...

Vielen Dank fürs Lesen bis hierher.
Gruß
Meggy
AccessDummy
 

Lesen sie die antworten

#1 Jens Schilling
08/04/2008 - 12:45 | Warnen spam
Hallo, Meggy

Meggy Kantert wrote:
dank www.donkarl.com?FAQ2.1 kann ich Round und RoundUp in meiner
Access 2003 .mdb erfolgreich nutzen. Nun brauche ich Gerade() bzw.
Even(), also Runden immer auf die nàchste gerade Zahl. Habe schon
ausprobiert und viel gesucht, aber diese Schlüsselwörter bescheren
mir nur jede Menge Excel-Lösungen...



Du könntest den Mod-Operator verwenden, der den Rest einer ganzzahligen
Division zurück gibt.
Mit nachstehender Funktion könntest Du z.B. dann angegeben, ob Du auf- oder
abrunden willst (sofern Du das nicht rechnerisch ermittelst).


Function GetEven(lgMyValue As Long, Optional LgUpDown As Long = -1) as Long

If lgMyValue Mod 2 > 0 Then
GetEven = lgMyValue + LgUpDown
Else
GetEven = lgMyValue
End If

End Function


Im Direktfenster:

?GetEven(15)
14

?GetEven(15,1)
16

?GetEven(15,-1)
14

Gruss
Jens
______________________________
2. SEK (SQL Server-Entwickler-Konferenz)
Nürnberg, 12./13.4 und 19./20.4.2008
FAQ: http://www.donkarl.com

Ähnliche fragen