Anzahl Aufrunden

[robu]

Hallo Zusammen

Kann mir jemand helfen ich krieg noch die Krise.
Ich habe eine Abfrage in Access gemacht und in der Abfrage in einer Spalte die Anzahl Kleber zusammengezählt.

Mit Funktion   Anzahl!

Nun möchte ich aber die Anzahl Kleber immer auf die nächste 5er Zahl aufrunden und kriege es einfach nicht hin.

z.b

52 auf 55
56 auf 60 und so weiter

Bin wohl zu doof für dieses Programm 

Für einen Ratschlag wäre ich sehr dankbar

Gruss robu

[ebs17]

Code [Auswählen] Erweitern

Debug.Print ((52 \ 5) + 1) * 5

MfGA
ebs

[DF6GL]

Hallo,

Public Function Round5(x As Long) As Long
Round5 = ((x * 10 + 45) \ 50) * 5
End Function



(rundet bei 6,16,26,...  auf)