NotesDateTime (Script)

[Don Pasquale]

Hallo Leute,

ich möchte in einer Maskte dem User einen Terminvorschlag machen und ein Datumsfeld mit einem Datum 1 Woche im voraus belegen.

Aber bereits folgendes klappt bei mir nicht :

Dim nextDateTime As NotesDateTime
Set nextDateTime = New NotesDateTime( "Today" )
Call nextDateTime.AdjustDay( 7 )


nextDateTime bleibt 00.00.0000

von dem Adjust ganz zu schweigen.

Wo liegt der Denkfehler?

Ciao

Don Pasquale

[ata]

... ich würde das mit Formel machen: @Adjust(.....)
... ansonsten konvertiere das heutige Datum zu Double, zähle 7 dazu und wandle die Zahl wieder zu einem Datum - in meiner Lib zum DateHandling gehe ich teilweise den gleichen Weg...

ata

[klaussal]

... oder mit "evaluate"....


BeispieL:

                Dim eval  As Variant
   Dim varReturn As Variant
   Dim strRolle As String
   Dim subString As String
   
   On Error Goto userHasRoleError
   Set db = session.currentDatabase
   
   strRolle = Rolle
   eval = Evaluate("@UserNamesList")
   varReturn = Arraygetindex( eval, strRolle)
   
   If Isnull(varReturn)  Then
      'Messagebox "nix Gefunden"
      userHasRole = False
   Else
      'Messagebox "gefunden"
      userHasRole = True
   End If

[Don Pasquale]

[klaussal]

... in der evaluate-zeile arbeitet man dann mit "adjust"...

mein teil war eben nur ein beispiel.

[Till_21]

Hi, ich mach das immer so, wie du oben, aber
versuchs mal damit, den konstruktor beim "dimensionieren aufzurufen...

Dim nextDateTime As New NotesDateTime(" Today")
Call nextDateTime.AdjustDay( 7 )


till

[Don Pasquale]

Wo liegt der Denkfehler?

Dass Du einen DEUTSCHEN Designer verwendest.

Da musst Du schon    mit HEUTE arbeiten.

Dim nextDateTime As New NotesDateTime( "Heute" )
Call nextDateTime.AdjustDay( 7 )

und schon klappt´s

@ata: Evaluate wollte ich mir als Plan B aufheben.
@klaussal: ich war im ersten moment etwas irritiert, bis ich begriffen habe worauf du hinauswolltest, sorry.
@till: Danke für den tipp, das hat mich bewogen weiter zu experimentieren

Ciao

Don Pasquale