XProfan

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

Proc TimeStamp

    Retour Dt("getDate",5)

ENDPROC

return unixTime()

Var UTC! =  Dt("setDate","01.01.1970")
Imprimer (!Now - UTC!) * 24 * 60 * 60
WaitInput