TKSoft-Online

Schaltjahr ermitteln PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Datum/Zeit
  
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr

Problemstellung:

Wie kann ich ermitteln ob das angegebene Jahr ein Schaltjahr ist? 


Function SchaltJahr(Jahr As IntegerAs Boolean
' Falsch = Jahr ist kein Schaltjahr , Warh = Jahr ist ein Schaltjahr
    SchaltJahr = Jahr Mod 4 = 0 And (Jahr Mod 100 <> 0 Or Jahr Mod 400 = 0)
End Function

Aufruf:


Dim x As Boolean
x =SchaltJahr(2004)

Das Ergebnis wäre x = True da 2004 ein Schaltjahr ist

DatumKlicks
Total1574
Do. 243
Mi. 231
Di. 221
So. 202
Fr. 181
Do. 171
Mi. 162
Aktualisiert ( Freitag, den 02. Juli 2010 um 08:39 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173487 Downloads

JoomlaWatch 1.2.11 - Joomla Monitor and Live Stats by Matej Koval