🚀 go-pugleaf

Krzysztof Pozorek wrote:
> 
> Ciekawym sposobem zaokraglania jest taka skladnia:
> Format(Liczba,".00")

ZAOKR:
> Function Zaokr(Liczba, n)
>     Zaokr = Format(Liczba, "." & String(n, "0"))
> End Function
> 
> Przykladowo:
> ?Zaokr(3.56789876,6)
> 3,567899

Niestety Krzysku, sprawa z Format nie wyglada rozowo. Zakladam przy tym,
ze chodzi tutaj przede wszystkim o zaokraglenia "finansowe", czyli 5 na
trzecim miejscu po przecinku ma byc zawsze zaokraglana "w gore".
Poprobowalem przed chwila "z palca", w oknie bezposrednim (acc97).
Przykladowo:

?Format(0.005, ".00")   = 0,01  'dobrze
?Format(0.015, ".00")   = 0,01  'juz nie bardzo...
?Format(0.025, ".00")   = 0,03  'dobrze
?Format(0.035, ".00")   = 0,04  'dobrze
?Format(0.045, ".00")   = 0,04  'zle
?Format(1.005, ".00")   = 1.00  'zle
?Format(1.015, ".00")   = 1,01  'zle
?Format(10.005, ".00") = 10,01  'dobrze
?Format(10.015, ".00") = 10,02  'dobrze

i tak dalej, przyklady mozna by mnozyc (prawie ;-) w nieskonczonosc.
Podobnie dla rzecz ma sie dla drugiej funkcji (probowalem dla 2 miejsc
po przecinku).
Aczkolwiek jesli 'liczba' jest typu Waluta, Format wydaje sie dzialac
ok, np.:

?Format(0.015@, ".00") = 0,02

co jednak wyklucza "uniwersalne" (na liczbach zmiennoprzecinkowych)
zaokraglanie powyzej 3 miejsca po przycinku (Waluta przechowuje 4
miejsca po przecinku).

Pozdrawiam -
	Stanley