Prüfen ob ein Jahr ein Schaltjahr ist
Veröffentlicht am 16.03.2010 von Sebastian Krogolewski
Artikelinformationen
Sprache:
Visual Basic 6
Datenbank:
keine
Artikel speichern
Artikel bewerten
Bewertng:0.00 / 5 (0 mal bewertet)
In diesem Artikel zeigen wir Ihnen wie Sie prüfen können ob es sich bei einer Jahreszahl um ein Schaltjahr handelt oder nicht. Wir gehen dabei nach allgemeingültigen Regeln vor:
1) Alle 4 Jahre ist EIN Schaltjahr.
2) Alle 100 Jahre ist KEIN Schaltjahr.
3) Alle 400 Jahre ist EIN Schaltjahr.
Funktion
1 2 3 4 56 7 8 9 10 | Public Function IsLeapYear(ByVal Year As Integer) As Boolean 'Wenn Year < 100 dann wird davon ausgegangen das es eine 2stellige Jahreszahl ist If (Year < 100) Then Year = Year + 2000 End If IsLeapYear = (Year Mod 4 = 0) And _ ((Year Mod 100 <> 0) Or (Year Mod 400 = 0)) End Function |
Downloads
Suchbegriffe
Visual Basic, Schaltjahr, IsLeapYear, Prüfen ob ein Jahr ein Schaltjahr ist, Prüfen auf Schaltjahr
10g 11g Anwendung starten API Dateinamen umwandeln GetProcAddress GetTempPath GetTempPathA GetVolumeInformation GetVolumeInformationA GetVolumeInformationW Kernel32.Dll kurzer Dateiname MAX_COMPUTERNAME_LENGTH MAX_PATH Microsoft Scripting Runtime Oracle Scripting.FileSystemObject SetForegroundWindow Shell Shell Befehl Shell32.Dll Shlwapi.Dll Temp User32.Dll