Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Laatscher am 17.09.02 - 16:45:20

Titel: Datum 7 Tage in Zukunft u. nicht auf 30.12.1899
Beitrag von: Laatscher am 17.09.02 - 16:45:20

Hallo,
ich habe ein Problem das mich fast verzweifeln lässt. Ich habe ein Script das ein Mail versendet wenn das Datum kleiner gleich Heute ist, soweit so gut. Nun soll von diesem Dokument das Datum 7 Tage in die Zukunft gesetzt werden, leider setzt es mir das Datum immer auf den 30.12.1899. Hat jemand eine Idee an was das liegt und wie es zu beheben ist?
Hier das Script:

Sub Initialize
Dim db As New NotesDatabase( "", "test.nsf" )
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim dateTime As New NotesDateTime( "12/01/94" )
Dim nextDateTime As NotesDateTime
searchFormula$ = "Form = ""Erfassung1"" & ReminderDate <= @Today"
Set collection = db.Search( searchFormula$, dateTime, 0 )
Set nextDateTime = New NotesDateTime( "Today" )
Call nextDateTime.AdjustDay( 7 )
For i = 1 To collection.Count
Set doc = collection.GetNthDocument( i )
Call doc.Send( True ,"@Author")
Call doc.ReplaceItemValue( "ReminderDate", _
nextDateTime.LSLocalTime )
Call doc.Save( True, False )
Next

End Sub

Titel: Re: Datum 7 Tage in Zukunft u. nicht auf 30.12.189
Beitrag von: gulp am 17.09.02 - 16:55:25

Möglicherweise liegt es an der Sprache.
Auf meinem Client funktioniert nur
Set nextDateTime = New NotesDateTime( "Heute" )
Einen Versuch ist es wert
lg
gulp

Titel: Re: Datum 7 Tage in Zukunft u. nicht auf 30.12.189
Beitrag von: harkpabst_meliantrop am 18.09.02 - 01:42:10

Gut möglich.

Gibt es

Call notesDateTime.SetNow

in R5? Ich hab's nur gerade aus der R6 Hilfe habe hier kein R5 zum Nachsehen installiert. Kommt mir so unbekannt vor ...

Titel: Re: Datum 7 Tage in Zukunft u. nicht auf 30.12.189
Beitrag von: Don Pasquale am 18.09.02 - 09:49:36

Gibt es :
Aus der Hilfe

     This script creates a new NotesDateTime with the default date, and then resets it to the current date and time. For example, if the SetNow method executes at 8:04:04 PM on August 15, 1996, then dateTime represents 08/15/96 08:04:04 PM.
Dim dateTime As New NotesDateTime( "" )
Call dateTime.SetNow
 2.      This script sets the PurgeDate item in a document to two months from now. For example, if the SetNow method executes at 8:04:04 PM on August 15, 1996, then PurgeDate has a value of 10/15/96 8:04:04 PM.
Dim doc As NotesDocument
'...set value of doc...
Dim dateTime As New NotesDateTime( "" )
Call dateTime.SetNow
Call dateTime.AdjustMonth( 2 )
Set doc.PurgeDate = dateTime
Call doc.Save( True, True )

Titel: Re: Datum 7 Tage in Zukunft u. nicht auf 30.12.189
Beitrag von: harkpabst_meliantrop am 18.09.02 - 10:16:03

Die Erinnerung kehr langsam zurück ... und die R5 Hilfe auch ;)

Zitat

Dim dateTime As New NotesDateTime( "" )

Genau das ist der entscheidende Punkt, wenn man ein neues DTItem erstellt, dem später erst ein neuer Wert zugewiesen werden soll, der Leerstring als Parameter.

Titel: Re: Datum 7 Tage in Zukunft u. nicht auf 30.12.189
Beitrag von: Laatscher am 18.09.02 - 13:48:27

Super vielen Dank,
das mit der Sprache war genau der richtige Tip.