[VBA] Round Funktion in VBA Office 97 ?

[dgr243]

Moin zusammen,

hab ein etwas grösseres Makro geschrieben, dass unter anderem die Funktion "round" verwendet. Diese Funktion wurde leider erst mit VB6 eingeführt. Davor scheint es die nicht zu geben.

Entwickelt wurde das Makro unter Office 2003 / Office 2000 (mal so mal so...),

laufen soll das unter Office 97.

Muss ich nun tatsächlich auf "round" verzichten oder gibt es da nen Workaround (maybe ne funktion die ich einfach "round" nenne selbst schreiben?)?

Wie würde einen Funktion die dasselbe vollbringt wie "round" aussehen? Mathematisch bin ich leider nicht so fit mir da selbst was auszudenken

Danke schonmal!

Gruss

Dgr243

[Dalaya]

Vllt hilft dir DAS weiter

[firewalker...]

' Die Funktion "Runden" rundet eine Zahl(vZahl) auf die gewünschten

' Nachkommastellen(iStellen)

'----------------------------------------------------------------------------------------

 Function Runden(vZahl As Variant, iStellen As Integer)

      Runden = CVar(Format(vZahl * (10 ^ iStellen), "0") / (10 ^ iStellen))

 End Function

Bitteschön!

Gruß,

tim

[dgr243]

Danke ihr beiden!

Das klappt beides einwandfrei!

Thread kann zu