Resourcen
Bücher
Presse
A bis B
C
D
E bis H
I bis L
M
N bis O
P
Q bis Z
Stellen
Tipps

alle öffnen    alle schließen


Nicht compiliert - . . geändert
 

Schaltjahrberechnung

SCHALTJAHRBERECHNUNG

von Rainer Becker

Es gibt bereits tausende von Schaltjahr-Routinen. In FoxPro kann man es sich allerdings etwas einfacher machen, weil es intern bereits Schaltjahre berechnen kann. Aus unbekannten Gründen wurde aber die eigentliche Schaltjahrabfrage nicht als Funktion zur Verfügung gestellt. Der nachfolgende Routine kann man wahlweise ein Datum, eine Jahreszahl oder nichts (=Tagesdatum) übergeben - sie liefert ein .T. für ein Schaltjahr zurück:

Function SchaltJahr
Parameters dDatum
If Parameters() == 0
m.dDatum = Date()
Endif
If Type("dDatum") == "D"
m.dDatum = Year(m.dDatum)
Endif
m.dDatum = Ltrim(str(m.dDatum))
m.dDatum = Ctod("29.02."+m.dDatum)
Return not Empty(m.dDatum)

Die letzten drei Zeilen der Routine kann man natürlich in eine einzige Zeile mit dem "Return" zusammenfassen.

FUCHS 3/93