Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 12.12.02 - 13:44:06
-
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
-
... 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
-
... 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
-
???
-
... in der evaluate-zeile arbeitet man dann mit "adjust"... ;)
mein teil war eben nur ein beispiel.
-
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
-
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