Agent Logging Problem ...

[gfunkus]

Hallo,

Ich habe mir selber so eine Art Ausführungs Zeit logging gebastelt.
Weil ich mal loggen wollte wie lange die Agenten denn so brauchen.
Jetzt habe ich das Problem, wenn der Agent über den Server läuft, das das Logging immer nur ne null schreibt...
So hiert wird die Startzeit initilaized..

Dim starttime As New NotesDateTime("")
   Dim endttime As New NotesDateTime("")
   Dim laufzeit As Variant
   Call starttime.SetNow


hier werden die unterscheidlichen sub abgearbeitet...


und am ende


Call endttime.SetNow
'   Print Cstr(endttime)
   laufzeit = endttime.TimeDifference(starttime)
   laufzeit = Timenumber(0,0,laufzeit)

Wer weiss was?

[elajen]

Hallo,

das kannst Du auch einfache machen:

dim start as variant
dim ende as variant

start = now

...Code ohne Ende

Ende = now

print "Laufzeit: " & ende - start


Gruß von Ekki.