🚀 go-pugleaf

news wrote:

> ... w Accessach 7 & 8 :
> Zawsze sie jakoś bałem pisać bazy liczące pieniądze (księgowość,
> płace, fakturownie, itp), nie wiedziałem dlaczego. Teraz przyszło mi
> przeprosić własną intuicję. Bałem się, ale tłumiłem w sobie
> strach i pisałem, pisałem, pisałem...
> No i mam... Nową matematykę w A95 i 97. Bo nie wiem czy już wiecie
> Fachowcy-Accesowcy, że mnożenie liczb nie zawsze musi być przemmienne...
> Choć tak naprawdę to niewiem czy błąd tkwi w: opertorze mnożenia '*',
> funkcji CLng(), czy moim ich używaniu.... A zaczęło się to tak:
>
>    Po rozpoczęciu nowego roku, pełen nadziei w to co (może) on przyniesie
> przystąpiłem do modyfikacji bazy płacowej w związku ze reformą ZUS...
> Licząc pensję pracownika kwerendą wstawiłem kolumnę liczącą składkę
> na ubezpieczenie wypadkowe (2,03% podstawy):
>
> UbWyp:CLng([Podstawa]*2,03)/100     (CLng - ma zaokrąglać )
>
> Po exporcie danych do Programu Płatnika (ktoś z Was też to robił ?)
> Płatnik zgłasza dla kilku pensji błąd wyliczenia składki. Biore kalkulator
> i rzeczywiście ma racje... bo np dla:
> [Podstawa] = 650
> moje UbWyp=13,19  a powinno 13,20 ( źle zaokrąglone )
>
> Zacząłem experymentować i zauważyłem że :
> CLng(650*2,03)/100 = CLng(650*0,0203*100)/100 = 13,19
> ALE JUŻ:
> CLng(100*650*0,0203)/100 = 13,20
>
> Przy używaniu CLng() w AccBasicu pojawia się błąd przepełnienia
> i pomaga zmiana typu: CLng(CDbl(X)) ,choć i to nie zawsze...
>
> A ja w swoich bazach do zaokrąglania zawsze używałem CLng() ....
> Chyba najlepszym sposobem na zaokrąglanie w Acc będzie napisanie własnej
> funkcji podobnej do ZAOKR() z Excella...
>
> Teraz widząc w swoim tlewizorze żółty pochylony w lewą ( właśnie: dlaczego
> w lewą ?) strone kluczyk, mina mi poważnieje nabierając wyrazów wyrzutów,
> niedowierzania i niepewności ...
> Jak dalej żyć... ?  Jak tu dalej accesować ... ? I jak w Acc. zaokrąglać ?
>
> Staaach
> swidanka@pg.gda.pl
>
> P. S.
> " Coś przykrego... "

Niestety, zaokrąglanie za pomocą CLng jest niepoprawne. O tym informuje help.
A szkoda. Funkcja zaprezentowana przez Stanley jest najprostrza jaką znam.
Osobiście napisałem własną funkję, która jest bardziej skomplikowana i oparta
jest na funkcjach tekstowych. Dzięki niej można dokonać zaokrągleń na liczbach
nie tylko typu Waluta ale i zmiennoprzecinkowych, dodatnich jak i ujemnych.

Niemniej szkoda, że w Accessie nie ma przydatnych funkcji Excelowskich. A może
ktoś wie jak z nich skorzystać w Accesie?

Grzegorz Godlewski