Fixes Datum in LS vergleichen

[ralph71]

Hallo zusammen,

ich möchte in LS den Datumswert aus einem Dokument mit einem fixen Datum vergleichen.
Der Vergleich scheitert. Die Bedingung ist immer wahr. Dh er kann das Datum nicht vergleichen. Wo liegt der Fehler?
Eigentlich eine triviale Bedingung....
Danke!

Code

'...
Dim locDate As Variant
'...
locDate = Cdat(docrkopf.fdServicePeriod(0))
If locDate >= "01.07.2020"  And locDate <="31.12.2020" Then
'...
End if

[Schnubbel]

aus dem Kopf:

Dim locDate as Notesdatetime
Dim fixdate as Notesdatetime
Dim fixdate2 as Notesdatetime

set fixdate1 =  New NotesdateTime ("01.07.2020")
set fixdate2 =  New NotesdateTime ("31.12.2020")

set locdate = New NotesdateTime (docrkopf.fdServicePeruid(0))

If locdate.TimeDifferenz(fixdate) >= 0 and locdate.TimeDifferenz(fixdate2) <= o then
'...

End if


Wie gesagt ausm Kopf, aber hilft dir eventuell mit einem zusätzlichen Blick in die Hilfe weiter.

Lieben Gruß

Thorsten

[ralph71]

Funktioniert. Perfekt!

[Tode]

ABER: Funktioniert nur, wenn der Client (oder der der Server, wenn das Ding in nem Agenten steckt) so eingestellt ist, dass er ein deutsches Datum erwartet.

Ansonsten ist fixDate1 plötzlich der 07. Januar... aber fixDate2 bleibt auf dem 31.12. weil der 12.31. ja nicht geht...

[ralph71]

naja, ausgelöst wird das Ereignis immer vom Client, was aber bei Deinem Einwand bedeutungslos ist.
Was wäre zu tun, um das ganze robuster zu machen?

[Tode]

Völlig ohne Zweideutigkeit:

Code

 set fixdate1 =  New NotesdateTime (Datenumber(2020, 7, 1))

Du kannst Dir aber auch die NotesDateTime- Geschichte komplett sparen und mit Variants vom Type Date arbeiten:

Code

If docrkopf.fdServicePeruid(0) <> Datenumber(2020, 7, 1) then

[ralph71]

Klappt! Danke