XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Schaltjahr: Einige Zeit- und Datum-Routinen
PRFellow-Vorlage
Autor: Thomas Hölzer
Einige kleine Zeit-/Datumroutinen
(siehe auch Vorlagen ostern.prv, feiertag.prv,wochtag.prv)
Schaltjahr?
Rückgabe: 0 = Nein, 1 = Ja
Def IsLeapYear(1) If(Or(And(Equ(Mod(%(1),4),0),Neq(Mod(%(1),100),0)),
Equ(Mod(%(1),400),0)),1,0)
Werte, mit denen man rechnen kann
Def Hour(0) Val(SubStr$(Time$(0),1,:))
Def Min(0) Val(SubStr$(Time$(0),2,:))
Def Sec(0) Val(SubStr$(Time$(1),1,.))
Def Day(0) Val(SubStr$(Date$(0),1,.))
Def Month(0) Val(SubStr$(Date$(0),2,.))
Def Year(0) Val(SubStr$(Date$(0),3,.))
Der wievielte Tag im Jahr ist der tt,mm,jjjj?
Die Prozedur NrOfDay verwendet einen Hilfsstring anstelle eines Arrays oder einer
List%-Liste, um auf globale Variablen verzichten zu können.
Das ganze sieht komplizierter aus als es ist:
Um sich reinzudenken, beachte man bitte, daß jeder Monat zunächst
mit 28 Tagen angenommen wird und der jeweilige Mehrwert im String
an eindeutiger Stelle steht(Monat * 2) (Multiplikator 2 wg. zweistelliger Zahlen)
Also: Die Mehrwert-Tage für Januar stehen an Stringposition 2, für Februar an 4,
für März an 6,usw., für Dezember an 24.
Beispiel für den 31.12.1998:
Man berechnet zunächst die Tage bis Ende des Vormonats: 11 * 28
Dann schaut man im String an Position 24 für Dezember nach, wieviele Tage
Mehrwert zuzuschlagen sind und findet 26
Dann addiert man die Tageszahl des gewünschten Monats dazu.
Falls das gewünschte Jahr ein Schaltjahr ist und der gewünschte Monat auf den Februar folgt,
muß das Ergebnis noch einmal um 1 erhöht werden (der 29. Februar).
Dafür ist die Zusatzfunktion IsLeapYear erforderlich, die für 1999 0 zurückgibt
Ergebnis
(11 Monate * 28 Tage) + 26 Mehrtage + Tageszahl 31 + Schaltjahrwert 0 = 365
In fertigen Programmen sollte noch sichergestellt werden, daß nur
gültige Daten übergeben werden können!

Proc NrOfDay

    Parameters t%,m%,j%
    Declare result%,mehrtage%
    Let mehrtage%=Val(Mid$(0000303060811131619212426,Mul(m%,2),2))
    Let result%=Add(Add(Mul(Sub(m%,1),28),t%),mehrtage%)
    Case Gt(m%,2): Add result%,IsLeapYear(j%)
    Return result%

EndProc

Beispiel
NrOfDay 31,12,2000
Print Silvester ist der,%(0);. Tag im Jahr 2000
WaitInput