Datum/Zeit in EnvironmentVar speichern und dann mit aktuellem Zeitpunkt vergleichen

  • Hi, ich würde gerne Folgendes tun:


    - Aktuelle Zeit in einer EnvironmentVariablen speichern
    (diverse Agenten starten, öffnen und schliessen diverse Fenster und und und)


    - Aktuelle Zeit mit der Zeit aus der EnvironmentVariablen vergleichen und die Diff in Minuten ausgeben
    (damit ich weiss, wieviele Minuten seit Start der Aktion vergangen sind)


    Allerdings speichert "Call Session.SetEnvironmentVar("ProcessStartTime",Now())" nur eine popelige 16. Hier sollte doch ein String mit den aktuellen Zeitangaben stehen, oder?


    Vielen lieben Dank :)

  • Siehe Hilfe:

    Zitat

    Now returns the current system date and time as a Variant of DataType 7 (Date/Time).


    Was passiert bei CStr(Now)?

    Life is not a journey to the grave with the intention of arriving safely in a pretty and well-preserved body, but rather to skid in broadside, thoroughly used up, totally worn out, and loudly proclaiming "Wow, what a ride!!! :evil:
    Beschleunigung ist, wenn die Tränen der Ergriffenheit waagrecht zum Ohr hin abfliessen - Walter Röhrl

  • s scho recht ;)


    ich machs jetz so:


    SHREIBEN:
    Call Session.SetEnvironmentVar("TestStartTime",Cstr(Hour(Now())) & ":" & Cstr(Minute(Now())) & ":" & Cstr(Second(Now())))


    LESEN:
    Dim strtTime As New NotesDateTime(Session.GetEnvironmentValue("TestStartTime"))
    Dim actuTime As New NotesDateTime(Cstr(Hour(Now())) & ":" & Cstr(Minute(Now())) & ":" & Cstr(Second(Now())))
    Dim secondsDone As Integer

    secondsDone = actuTime.TimeDifference(strtTime)

    AUSGEBEN
    Print "vergangene Zeit: " & Cstr(Round(secondsDone/60,0)) & " Minuten, " & Cstr(secondsDone Mod 60) & " Sekunden"

    des tut soweit ganz gut


    bis auf den round ... wie bekommt man den den immer "aufgerundet"?

  • Versuch mal, ob Fix(secondsDone / 60) hilft.
    Und mit secondsDone - (Fix(secondsDone / 60) * 60) solltest due eigentlich die "übrig" bleibenden Sekunden rausbekommen.

    Life is not a journey to the grave with the intention of arriving safely in a pretty and well-preserved body, but rather to skid in broadside, thoroughly used up, totally worn out, and loudly proclaiming "Wow, what a ride!!! :evil:
    Beschleunigung ist, wenn die Tränen der Ergriffenheit waagrecht zum Ohr hin abfliessen - Walter Röhrl

    • Offizieller Beitrag

    kürzere und übersichtlicher Schreibweise für Call Session.SetEnvironmentVar("TestStartTime",Cstr(Hour(Now())) & ":" & Cstr(Minute(Now())) & ":" & Cstr(Second(Now()))) ist Call Session.SetEnvironmentVar("TestStartTime", Format(Now(), "hh:nn:ss")).


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein