XProfan

Proc Gestern

    Volver Dt("getDate",0,dt("incDay",!now,-1))

ENDPROC

Proc Morgen

    Volver Dt("getDate",0,dt("incDay",!now,1))

ENDPROC

'El ersten beiden Prozeduren son sólo de Gründen el Bequemlichkeit drin.
'Se puede auch el Proc Heute con entsprechenden Parametern +1/-1 aufrufen.
'Sinnvoll wäre z. B., esta beiden Prozeduren en un Headerdatei a escribir:
'MORGEN = Dt("getDate",0,dt("incDay",!now,1));
'GESTERN = Dt("getDate",0,dt("incDay",!now,-1));
'Aufruf entonces con: Imprimir ~MORGEN
'Man podría hier natürlich todavía una optionalen Parámetro para el Ausgabeformat einbauen.
'Das tener Yo aber de Gründen el mejor Übersichtlichkeit gelassen.

Proc Heute

    If %pcount = 1

        Parámetros i%

    ElseIf %pcount = 2

        Parámetros Datum$,i%

    Más

        Var i% = 0

    EndIf

    Volver Dt("getDate",0,dt("incDay",!now,i%))

ENDPROC

Proc DatumPlus

    Parámetros d%,m%,j%,d$
    Declarar Date!

    If %pcount = 3

        'si kein Datum angegeben se, se el "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%)
    Volver Dt("getDate",0,Date!)

ENDPROC

Proc DatumIntervall

    Parámetros D$,I%,Anzahl%
    Var date! = Dt("setDate",D$)

    WhileLoop 1,Anzahl% * I%,I%

        Imprimir Dt("getDate",0,dt("incDay",date!,&Loop)),&bucle
        'hier wäre una Edición z. B. en el Listboxliste natürlich sinnvoller
        'AddStrings Dt("getDate",0,dt("incDay",date!,d%))

    Wend

ENDPROC

Imprimir "Gestern war " + Gestern()
Imprimir "Heute es " + Heute()
Imprimir "Morgen es " + Morgen()
Imprimir
Imprimir "Vor 5 Tagen war el " + Heute(-5)
Imprimir "In 50 Tagen es el " + Heute(50)
Imprimir
Imprimir "In 10 Tagen, 6 Monaten y 12 Jahren es el " + DatumPlus(10,6,12)
Imprimir "Vor 10 Tagen, 6 Monaten y 12 Jahren war el " + DatumPlus(-10,-6,-12)
Imprimir "und el va auch con un beliebigen Datum: " + DatumPlus(1,-6,2,"02.05.1999")
Imprimir
Imprimir "Taste drücken"
WaitKey
Imprimir
Imprimir "Eine Liste con 14-täglichen Terminen de el 15.5.2013"
DatumIntervall("15.5.2013",14,10)
WaitInput
WaitInput

Proc TimeStamp

    Volver Dt("getDate",5)

ENDPROC

volver unixTime()

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