Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Jak zjistit, jestli je rok přechodný? |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 10.1.2003
| Publikováno: 10.1.2003
| Čtenářů: 2882
| Unikátních: 2854
|
Vytvoříme si ve Visual Basicu velmi jednoduchou funkci, která nám prověří podle známého algoritmu, zda se o přechodný rok jedná
Public Function IsLeapYear(iYear As Integer)
If (iYear Mod 4 = 0) And _
((iYear Mod 100 <> 0) Or (iYear Mod 400 = 0)) Then
IsLeapYear = True
Else
IsLeapYear = False
End If
End Function
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu