XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datumsdifferenzen ermitteln
Def DB_DeltaTage(2) ABS(Sub(Add(Add(Sub(Int(Mul(If(GT(Val(Mid$($(1),5,2)),2)
,Val(Left$($(1),4)),
Sub(Val(Left$($(1),4)),1)),365.25)),693975),
Int(Mul(If(GT(Val(Mid$($(1),5,2)), 2),Add(Val(Mid$($(1),5,2)),1),
Add(Val(Mid$($(1),5,2)),13)),30.6))),Val(Right$($(1),2))-1),
Add(Add(Sub(Int(Mul(If(GT(Val(Mid$($(2),5,2)),2),Val(Left$($(2),4) ),
Sub(Val(Left$($(2),4)),1)),365.25)),693975),
Int(Mul(If(GT(Val(Mid$($(2),5,2)),2),Add(Val(Mid$($(2),5,2)),1),
Add(Val(Mid$($(2),5,2)),13)),30.6))),Val(Right$($(2),2))-1)))
Par 1= erstes Datum in Datenbankformat
Par 2= zweites Datum in Datenbankformat
Ergebnis: Die Tage zwischen den zwei Datums
Aufrufbeispiel
Print str$(int(DB_DeltaTage(20020830,Date$(3))))
Print str$(int(DB_DeltaTage(20020918,19980425)))
Print str$(int(DB_DeltaTage(20021202,Date$(3))))
WaitInput