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
‹bersicht
Visual FoxPro 8.0
Visual FoxPro 7.0
Visual FoxPro 6.0
Alle Visual FoxPro Versionen
Visual FoxPro 5.0
Visual FoxPro 3.0
Visual FoxPro Mac
Alle FoxPro-Versionen
Alle Windows-Versionen
FoxPro DOS FoxPro Win
FoxPro DOS
FoxPro Mac
Sonstige Tips

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