XProfan

Français

Michael
W.

cet Funktion habe je vermisst. je voulais cet pas dans qui Codesnippets se mettre là un fester Einbau wohl quelque chose plus Genauigkeit apporter peux.

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

Kompilieren Marque Séparation

SubProc dt.DateTimeDiff

    Paramètres float DatumAlt, DatumNeu
    Déclarer float f, string s, int J,M,T,ms
    Var float cJ = 365.2425
    Var float cM = 30.4375

    Si DatumNeu > DatumAlt

        f = DatumNeu - DatumAlt' chez DaysBetween fehlt ensuite qui Zeit

    D'autre

        f = DatumAlt - DatumNeu' chez DaysBetween fehlt ensuite qui 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)
    Retour 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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Richtig cool wäre es oui, si on là facultativement aussi cela date comme String angeben pourrait.
je sais: peux je aussi selber programmieren...
mais peut-être fais du es oui trottzdem encore.

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

21.03.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
W.

Richtig cool ist: cet Funktion ist oui 'jetzt' une Datumsunterfunktion.

et mittels Explode() venez on à qui Ergebnis-Werte aussi très vite heran.

Kompilieren Marque Séparation

Cls
Imprimer dt("DateTimeDiff",  dt("SetDate", "10.03.2016",!now), !now )
Imprimer dt("DateTimeDiff",  dt("SetDate", "10.03.2016"), !now )
WaitInput
Fin

SubProc dt.DateTimeDiff

    Paramètres float DatumAlt, DatumNeu
    Déclarer float f, string s, int J,M,T,ms
    Var float cJ = 365.2425
    Var float cM = 30.4375

    Si DatumNeu > DatumAlt

        f = DatumNeu - DatumAlt' chez DaysBetween fehlt ensuite qui Zeit

    D'autre

        f = DatumAlt - DatumNeu' chez DaysBetween fehlt ensuite qui 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)
    Retour Format $("%u,",J) + Format $("%.2u,",M) + Format $("%.2u,",T) + s + Format $("%.2u",ms)

ENDPROC