| VB-Homepage Tipp 350 |
| Schaltjahrabfrage |
| Ich denke im Zusammenhang mit dem Jahr 2000, ist nun ein
jeder mit den Besonderheiten der Schaltjahrbestimmungen vertraut. Was wir hier als Tipp haben, ist das in ein Projekt gepreßte Wissen, welches Jahr ein Schaltjahr ist. Wenn Sie also diese Angabe für Ihr Projekt benötigen, nutzen Sie folgende Prozedur. Public Function IstSchaltjahr(iJahr As Integer) If (iJahr Mod 4 = 0) And ((iJahr Mod 100 <> 0) Or (iJahr Mod
400 = 0)) Then End Function Sie müssen Ihr lediglich zum Aufruf, das zu prüfende
Jahr übergeben und erhalten als Ergebnis einen Boolean Wert (True/False) zurück. |
| Tipp-Download |
| Quelle : Tricia L. Lewis / tricia@vbce.com |
 |