Datumsberechnung mit Wert aus Maske

[werner16]

Hallo,

ich kann in Lotus Script mir ja mit 'Now' das aktuelle Datum hohlen und wenn ich ein Datum
z.B. vier Wochen in der Zukunft benötig einfach 28 Tage dazu adiieren

vdtZeitwert = Now + 28

Wenn ich mir jedoch aus einer Maske einen Datumswert hole  diesen als Integer
deklariere funktioniert das ganze nicht mehr.

Da wird aus 06.05.2011 -> 6052039 statt 03.06.2011

Wie muss ich die Datumsvariable, die ich mir aus der Maske hole, deklarieren
damit ich Tage richtig dazu addieren kann?
Hintergrund ist, dass ich zu einem Ereignis eine Erinnerung in vier Wochen
setzte möchte.

Gruß,
Werner

[ascabg]

Hallo,

Wie weit reicht denn eine als Intergar deklarierte Variable?

Ich wuerde es mind. mit Double versuchen.


Andreas

[marschul]

Warum nicht

Dim oDatum as New NotesDateTime(Ursprungsdatum, z.B. Now)
oDatum.AdjustDay 28
Rest siehe Klasse NotesDateTime...

?

Double (laut Vorschreiber) wäre wohl auch nicht ganz korrekt, da dieser die höhere Genauigkeit ggü. Single darstellt. Die Erweiterung von Integer ist Long.

[werner16]

Hi,

werde ich mal testen, danke.

Gruß,
Werner

[Peter Klett]

Ansonsten sollte Variant auf jeden Fall funktionieren

[werner16]

Moin,

> Dim oDatum as New NotesDateTime(Ursprungsdatum, z.B. Now)
> oDatum.AdjustDay 28
> Rest siehe Klasse NotesDateTime...

@marschul: So hat es funktioniert, auch als Variant, danke! 

Gruß,
Werner