XProfan

Deutsch

Michael
W.

Diese Funktion habe ich vermisst. Ich wollte diese nicht in die Codesnippets stellen da ein fester Einbau wohl etwas mehr Genauigkeit bringen kann.

Diese Funktion liefert
Jahre, Monate, Tage, Stunden, Minuten, Sekunden, Millisekunden
als kommaseparierten String zurück.

Kompilieren Markieren Separieren

SubProc dt.DateTimeDiff

    Parameters float DatumAlt, DatumNeu
    Declare float f, string s, int J,M,T,ms
    Var float cJ = 365.2425
    Var float cM = 30.4375

    If DatumNeu > DatumAlt

        f = DatumNeu - DatumAlt' bei DaysBetween fehlt dann die Zeit

    Else

        f = DatumAlt - DatumNeu' bei DaysBetween fehlt dann die Zeit

    EndIf

    s = Translate$( dt("GetTime",2,f), ":", "," ) : ms = dt("GetMilliSec",f)
    J = Int(f / cJ) : f = f - (cJ * J)
    M = Int(f / cM) : f = f - (cM * M)
    T = Int(f)
    Return Format$("%u,",J) + Format$("%.2u,",M) + Format$("%.2u,",T) + s + Format$(",%.2u",ms)

EndProc

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

21.03.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Richtig cool wäre es ja, wenn man da wahlweise auch das Datum als String angeben könnte.
Ich weiß: kann ich auch selber programmieren...
Aber vielleicht machst du es ja trottzdem noch.

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

21.03.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
W.

Richtig cool ist: Diese Funktion ist ja 'jetzt' eine Datumsunterfunktion.

Und mittels Explode() kommt man an die Ergebnis-Werte auch sehr schnell heran.

Kompilieren Markieren Separieren

Cls
Print dt("DateTimeDiff",  dt("SetDate", "10.03.2016",!now), !now )
Print dt("DateTimeDiff",  dt("SetDate", "10.03.2016"), !now )
WaitInput
End

SubProc dt.DateTimeDiff

    Parameters float DatumAlt, DatumNeu
    Declare float f, string s, int J,M,T,ms
    Var float cJ = 365.2425
    Var float cM = 30.4375

    If DatumNeu > DatumAlt

        f = DatumNeu - DatumAlt' bei DaysBetween fehlt dann die Zeit

    Else

        f = DatumAlt - DatumNeu' bei DaysBetween fehlt dann die Zeit

    EndIf

    s = Translate$( dt("GetTime",2,f), ":", "," ) : ms = dt("GetMilliSec",f)
    J = Int(f / cJ) : f = f - (cJ * J)
    M = Int(f / cM) : f = f - (cM * M)
    T = Int(f)
    Return Format$("%u,",J) + Format$("%.2u,",M) + Format$("%.2u,",T) + s + Format$(",%.2u",ms)

EndProc