PDA

Vollständige Version anzeigen : Wie überprüfe ich ein Schaltjahr?


Stefan Kulpa
01.02.2003, 04:14
<div><link href="http://www.ms-office-forum.de/ubb/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Function</span> IsLeapYear(lYear <span class="TOKEN">As</span> <span class="TOKEN">Long</span>) <span class="TOKEN">As</span> <span class="TOKEN">Boolean</span>
<span class="REM">'// -----------------------------------------------------------------</span>
<span class="REM">'// Methode: | &Uuml;berpr&uuml;ft ob es sich um ein Schaltjahr handelt</span>
<span class="REM">'// -----------------------------------------------------------------</span>
<span class="REM">'// Parameter: | lYear - Jahreszahl</span>
<span class="REM">'// -----------------------------------------------------------------</span>
<span class="REM">'// R&uuml;ckgabe: | True, wenn dies zutrifft, sonst False</span>
<span class="REM">'// -----------------------------------------------------------------</span>
IsLeapYear = Month(DateSerial(lYear, 2, 29)) = 2
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Martin1000
17.10.2008, 14:36
Hi,

Function IsLeapYear(lYear As Long) As Boolean

IsLeapYear = IsDate(DateSerial(lYear,2,29))

End Function

ne extra Funktion brauchst du aber deswegen nicht wie du siehst.

Josef P.
18.10.2008, 11:56
... nur dass DateSerial(lYear,2,29) immer ein gültiges Datum liefert.
DateSerial(2007,2,29) = 01.03.2007