Proc Gestern
Retour Dt("getDate",0,dt("incDay",!now,-1))
ENDPROC
Proc demain
Retour Dt("getDate",0,dt("incDay",!now,1))
ENDPROC
'qui ersten beiden Prozeduren sommes seulement aus Trouvé qui confort drin.
'il peut aussi qui Proc aujourd'hui avec entsprechenden Parametern +1/-1 appel.
'Sinnvoll wäre z. B., cet beiden Prozeduren dans un Headerdatei trop écrivons:
'MORGEN = Dt("getDate",0,dt("incDay",!now,1));
'GESTERN = Dt("getDate",0,dt("incDay",!now,-1));
'Aufruf ensuite avec: Imprimer ~MORGEN
'on pourrait ici naturellement encore une optionalen paramètre pour cela Ausgabeformat einbauen.
'cela hab je mais aus Trouvé qui besseren Übersichtlichkeit gelassen.
Proc aujourd'hui
Si %pcount = 1
Paramètres i%
ElseIf %pcount = 2
Paramètres date$,i%
D'autre
Var i% = 0
EndIf
Retour Dt("getDate",0,dt("incDay",!now,i%))
ENDPROC
Proc DatumPlus
Paramètres d%,m%,j%,d$
Déclarer Date!
Si %pcount = 3
'si ne...aucune date angegeben wird, wird cela "Heute" verwendet
date! = !now
ElseIf %pcount = 4
date! = Dt("setDate",d$)
EndIf
Date! = dt("incDay",date!,d%)
Date! = dt("incMonth",date!,m%)
Date! = dt("incYear",date!,j%)
Retour Dt("getDate",0,Date!)
ENDPROC
Proc DatumIntervall
Paramètres D$,I%,Anzahl%
Var date! = Dt("setDate",D$)
WhileLoop 1,Anzahl% * I%,I%
Imprimer Dt("getDate",0,dt("incDay",date!,&Boucle)),&loop
'ici wäre une Ausgabe z. B. dans qui Listboxliste naturellement sinnvoller
'AddStrings Dt("getDate",0,dt("incDay",date!,d%))
Wend
ENDPROC
Imprimer "Gestern était " + Gestern()
Imprimer "Heute ist " + aujourd'hui()
Imprimer "Morgen ist " + demain()
Imprimer
Imprimer "Vor 5 Tagen était qui " + aujourd'hui(-5)
Imprimer "In 50 Tagen ist qui " + aujourd'hui(50)
Imprimer
Imprimer "In 10 Tagen, 6 Monaten et 12 Jahren ist qui " + DatumPlus(10,6,12)
Imprimer "Vor 10 Tagen, 6 Monaten et 12 Jahren était qui " + DatumPlus(-10,-6,-12)
Imprimer "und cela allez aussi avec einem beliebigen date: " + DatumPlus(1,-6,2,"02.05.1999")
Imprimer
Imprimer "Taste drücken"
WaitKey
Imprimer
Imprimer "Eine liste avec 14-täglichen Terminen ab dem 15.5.2013"
DatumIntervall("15.5.2013",14,10)
WaitInput
WaitInput