datumsvergleich

[klaussal]

hi zusammen,

ich habe folgendes:

Dim dateTimevon As New NotesDateTime( "" )
Call dateTimevon.SetNow
Call dateTimevon.AdjustDay( -7 )

diese datum ("heute" - 7 tage) will ich mit einem datumsfeld aus einem dokument vergleichen.

wie sieht da der vergleich aus ? irgendwie krieg ich das nicht hin  

danke für tipps und hinweise !

[koehlerbv]

Mach einfach wieder ein Variant daraus (NotesDateTime.LSLocalTime), damit kannst Du dann Felder direkt vergleichen.

HTH,
Bernhard

[klaussal]

@bernhard,

kannst du das bitte vielleicht etwas ausführlicher schreiben ?

[koehlerbv]

Jo.

Dim dtVon As New NotesDateTime( "" )
dim vVon as Variant
Call dtVon.SetNow
Call dtVon.AdjustDay( -7 )
vVon = dtVon.LSLocalTime

Set doc = '... Dein Dokument instantiieren
If doc.Bis (0) > vVon then
   Messagebox "Bis ist grösser als Von ..."
End If.

Oder noch viel einfacher - ohne NotesDateTime:
dim vVon as Variant
vVon = Today - 7
Set doc = '... Dein Dokument instantiieren
If doc.Bis (0) > vVon then
   Messagebox "Bis ist grösser als Von ..."
End If.


Bernhard

[klaussal]

@bernhard,

danke !!!

da bin ich hier wohl übers ziel hinausgeschossen. hatte mir das viiiiiel komplizierter vorgestellt.

[koehlerbv]

Meine ersten Datumsmanipulationen in LS sahen auch so aus. Keine Ahnung, warum es einen auch in unnötigen Fällen so zur NotesDateTime Class hinzieht  

Bernhard