Zeiten vergleichen in Script

MIND1 · 23. August 2005

Hallo,

wie funktioniert folgendes eigentlich:

Ich möchte in LS Zeiten vergleichen. Und zwar soll ein Datum in einem Feld mit dem heutigen Tag verglichen werden. Und wenn dazwischen mehr als 5 Tage liegen, dann soll eine If-Schleife greifen.

AdjustDay habe ich schon ausprobiert, aber irgendwie laufe ich dann in ein Type Mismatch.

Damke! Gruss, Bernd

RockWilder · 23. August 2005

difference& = notesDateTime.TimeDifference( notesDateTime )

Finds the difference in seconds between one date-time and another.

Und 5 Tage sind 432.000 Sekunden

Diali · 23. August 2005

Du musst es über ein NotesDateTime-Object lösen.

Code

Dim ndt as New NotesDateTime(Cstr(doc.Datum(0)))Dim ndt_Today as New NotesDateTime(Cstr(Today))Call ndtAdjustDay(5)Call ndt.SetAnyTimeIf ndt.LSLocalTime > ndt_Today.LSLocalTime Then...End if

Oder Alternativ mit

Code

Dim ndt as New NotesDateTime(Cstr(doc.Datum(0)))
Dim ndt_Today as New NotesDateTime(Cstr(Today))


Call ndt.SetAnyTime
If ndt.TimeDiference(ndt_Today.LSLocalTime) / 86400 > 5 Then
...
End If

Gruß
Dirk

MIND1 · 23. August 2005

Hallo,

geht der Vergleich auch mit ".DateOnly"?

Gruss, Bernd

Diali · 24. August 2005

DateOnly liefert Dir einen String zurück und LSLocalTime einen Datums/Zeit-Wert!

DateOnly würde nur bei einer Abfrage auf Gleichheit oder Ungleichheit funktionieren. Ein Vergleich auf größer oder kleiner geht durch die alphanumerische Sortierung verloren.

Gruß
Dirk

Teilen