XProfan

Español

Michael
W.

Diese Función Yo vermisst. Yo quería esta no en el Codesnippets stellen como una fester Einbau wohl algo mehr Genauigkeit bringen kann.

Diese Función liefert
Jahre, Monate, Tage, Stunden, Minuten, Sekunden, Millisekunden
como kommaseparierten String zurück.

Kompilieren Marca Separación

SubProc dt.DateTimeDiff

    Parámetros float DatumAlt, DatumNeu
    Declarar float f, cadena s, int J,M,T,ms
    Var float cJ = 365.2425
    Var float cM = 30.4375

    If DatumNeu > DatumAlt

        f = DatumNeu - DatumAlt' en DaysBetween fehlt entonces el Tiempo

    Más

        f = DatumAlt - DatumNeu' en DaysBetween fehlt entonces el Tiempo

    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)
    Volver Formato$("%u,",J) + Formato$("%.2u,",M) + Formato$("%.2u,",T) + s + Formato$(",%.2u",ms)

ENDPROC

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

21.03.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Richtig fresco wäre lo sí, si uno como wahlweise auch el Datum como String angeben podría.
Yo weiß: kann Yo auch selber programa...
Aber tal vez machst du lo sí trottzdem todavía.

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

21.03.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

Richtig fresco es: Diese Función es sí 'jetzt' una Datumsunterfunktion.

Und mittels Explode() kommt uno a el Ergebnis-Werte auch muy rápidamente heran.

Kompilieren Marca Separación

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

SubProc dt.DateTimeDiff

    Parámetros float DatumAlt, DatumNeu
    Declarar float f, cadena s, int J,M,T,ms
    Var float cJ = 365.2425
    Var float cM = 30.4375

    If DatumNeu > DatumAlt

        f = DatumNeu - DatumAlt' en DaysBetween fehlt entonces el Tiempo

    Más

        f = DatumAlt - DatumNeu' en DaysBetween fehlt entonces el Tiempo

    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)
    Volver Formato$("%u,",J) + Formato$("%.2u,",M) + Formato$("%.2u,",T) + s + Formato$(",%.2u",ms)

ENDPROC