Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Vlastní zaokrouhlovací funce ve VB |
Autor: SwitCZ
| Zdroj: Diskuze Builder
| Vytvořeno: 13.10.2003
| Publikováno: 14.10.2003
| Čtenářů: 3023
| Unikátních: 2984
|
Funkce zaokrouhlující tak jak jsme zvyklí ze školy do X.5 dolů od X.5 (včetně) nahoru.
Vstup do funkce je:
dNum zaokrouhlované číslo
iCnt počet desetiných míst
Funkce:
Public Function RoundUP _
(ByVal dNum As Double, _
ByVal iCnt As Integer) _
As Double
RoundUP = Sgn(dNum) * Int((Abs(dNum) _
* Exp(iCnt * Log(10)) _
) + 0.5000000000001) / _
Exp(iCnt * Log(10))
End Function
Příklad
Výsledek = RoundUp(1.345,2) (Výsledek=1.35)
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu