Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: klaussal am 11.05.04 - 08:40:57

Titel: datumsvergleich
Beitrag von: klaussal am 11.05.04 - 08:40:57

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  :P

danke für tipps und hinweise !

Titel: Re:datumsvergleich
Beitrag von: koehlerbv am 11.05.04 - 08:45:32

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

HTH,
Bernhard

Titel: Re:datumsvergleich
Beitrag von: klaussal am 11.05.04 - 08:55:33

@bernhard,

kannst du das bitte vielleicht etwas ausführlicher schreiben ?

Titel: Re:datumsvergleich
Beitrag von: koehlerbv am 11.05.04 - 09:02:50

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

Titel: Re:datumsvergleich
Beitrag von: klaussal am 11.05.04 - 10:18:55

@bernhard,

danke !!!

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

Titel: Re:datumsvergleich
Beitrag von: koehlerbv am 11.05.04 - 10:20:45

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