Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
Jak napsat funkci, která zjistí zda jde o celé číslo ve VB. |
Autor: SwitCZ
| Zdroj:
| Vytvořeno: 21.11.2003
| Publikováno: 24.11.2003
| Čtenářů: 3150
| Unikátních: 3101
|
Potřebujete zjistit zda jde o celé číslo, nebo zda má část za desetinou čárkou?
Ve funkci využijeme porovnání výsledků mezi klasickým a celočíselným dělením.
Function JeCeleCislo(ByVal Cislo As Double) _
As Boolean
JeCeleCislo = IIf(Cislo \ 1 = _
Cislo / 1, True, False)
End Function
|