VBA - pevny pocet desetinnych mist

[23barcelona]

Ahoj,

existuje ve VBA nebo primo v MS Access funkce, ktera vynasobi cislo procentem a vysledek ulozi s pevnym poctem desetinnych mist, tj. kdyz chci cislo pouze se 2 desetinnymi misty, tak skutecne bude bunka drzet pouze hodnotu napr. 2,35 a ne 2,3528748?

Mam totiz nasledujici problem. V databazi MS Access mam pole s cislem - měna (2 desetinna mista), ktere potrebuji rozdelit do dvou polozek. V prvni polozce je toto cislo nasobeno 0,85 a v druhe 0,15 (i tato cisla se zaokrouhluji na 2 desetinna mista). Soucet techto dvou cisel by tedy mel byt roven puvodnimu cislu. Problem ale nastava u zaokrouhlovani na 2 desetinna mista. Jak uvadim v prikladu nize, tak MS Access zaokrouhli obe pole nahoru a jejich soucet (opticky - vim, ze MS Access uchovava celou hodnotu) pak prevysuje puvodni cislo. Protoze mi jde v dane sestave pouze o tisk, potrebuji nasledujici:

1) pokud je soucet 2 cisel nasobenych 0,85 a 0,15 roven puvodni hodnote tak je vse O.K.
2) pokud je soucet 2 cisel nasobenych 0,85 a 0,15 jiny nez puvodni hodnota, tak zookrouhlit cislo, kter je nasobeno 0,85 smerem dolu tak, aby soucet byl roven puvodni hodnote.


Příklad
Celkem: 3 448,50 Kč
0,85 2 931,23 Kč
0,15 517,28 Kč

Díky za pomoc

[Reklama]