Italia
Fonte/ Codesnippets

Datum Funktionen Getdate Kalender

 

Jörg
Sellmeyer
Die Datumsfunktionen in XProfan sind (finde ich) nicht ganz leicht zu durchschauen. Außerdem ist die Syntax etwas ...hrm... umständlich.
Mit ein paar eigenen Prozeduren lassen sich daraus aber schnelle und übersichtliche Terminfunktionen erzeugen:
Proc Gestern

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

EndProc

Proc Morgen

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

EndProc

'Die ersten beiden Prozeduren sind nur aus Stabilire der Bequemlichkeit drin.
'Man kann auch die Proc Heute mit entsprechenden Parametern +1/-1 aufrufen.
'Sinnvoll wäre z. B., diese beiden Prozeduren in un Headerdatei zu schreiben:
'MORGEN = Dt("getDate",0,dt("incDay",!now,1));
'GESTERN = Dt("getDate",0,dt("incDay",!now,-1));
'Aufruf dann mit: Print ~MORGEN
'Man potuto hier naturalmente noch einen optionalen Parameter per das Ausgabeformat einbauen.
'Das hab ich aber aus Stabilire der besseren Übersichtlichkeit gelassen.

Proc Heute

    If %pcount = 1

        Parameters i%

    ElseIf %pcount = 2

        Parameters Datum$,i%

    Else

        Var i% = 0

    EndIf

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

EndProc

Proc DatumPlus

    Parameters d%,m%,j%,d$
    Declare Date!

    If %pcount = 3

        'wenn kein Datum angegeben wird, wird das "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%)
    Return Dt("getDate",0,Date!)

EndProc

Proc DatumIntervall

    Parameters D$,I%,Anzahl%
    Var date! = Dt("setDate",D$)

    WhileLoop 1,Anzahl% * I%,I%

        Print Dt("getDate",0,dt("incDay",date!,&Loop)),&loop
        'hier wäre eine Ausgabe z. B. in die Listboxliste naturalmente sinnvoller
        'AddString Dt("getDate",0,dt("incDay",date!,d%))

    Wend

EndProc

Print "Gestern war " + Gestern()
Print "Heute ist " + Heute()
Print "Morgen ist " + Morgen()
Print
Print "Vor 5 Tagen war der " + Heute(-5)
Print "In 50 Tagen ist der " + Heute(50)
Print
Print "In 10 Tagen, 6 Monaten und 12 Jahren ist der " + DatumPlus(10,6,12)
Print "Vor 10 Tagen, 6 Monaten und 12 Jahren war der " + DatumPlus(-10,-6,-12)
Print "und das geht auch mit einem beliebigen Datum: " + DatumPlus(1,-6,2,"02.05.1999")
Print
Print "Taste drücken"
WaitKey
Print
Print "Eine Liste mit 14-täglichen Terminen ab dem 15.5.2013"
DatumIntervall("15.5.2013",14,10)
WaitInput
WaitInput
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
07.03.2013  
 



Auf jeden Fall sinnvoll.

Wie ist das mit Datum->Zeitstempel?
 
07.03.2013  
 




Jörg
Sellmeyer
Was genau meinst du mit Zeitstempel? Das hier:

gibt dir z. B. eine englische Ausgabe mit Offset zur UTC aus.
Wenn du ein bestimmtes Ausgabeformat haben möchtest, gib mal ein Beispiel und ich bastel was zusammen.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
07.03.2013  
 



Ich meine den sog. Unix Timestamp:  [...] 

Also Anzahl vergangener Sekunden seit 01.01.1970 00:00.00 UTC.

In nProcs kann man einfach:

schreiben:  [...] 
 
07.03.2013  
 




Jörg
Sellmeyer
Müsste ja im Prinzip sowas wie das hier sein:
Var UTC! =  Dt("setDate","01.01.1970")
Print (!Now - UTC!) * 24 * 60 * 60
WaitInput
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
07.03.2013  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

11.258 Views

Untitledvor 0 min.
Erhard Wirth14.06.2024
ecki10.02.2023
Michael W.30.03.2022
Thomas Zielinski02.12.2021
Di più...

Themeninformationen

Dieses Thema hat 2 subscriber:

Jörg Sellmeyer (3x)
iF (2x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie