Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: brathaenchen am 20.09.05 - 11:19:37
-
Hi
kurze und simple frage. Ich möchte in einen script agenten den Feldwert eines Datums setzen.
Das Feld ist vom Typ Date / Time.
Wie kann ich es auf den wert in z.b 30 Tagen setzen
Z.b heute wäre der 01.01.2006 dann will ich 31.1.2006 da drin stehen haben
-
Schau Dir mal @Adjust in der Designer-Hilfe an.
-
Und wenn's in LS sein soll dazu noch "evaluate".
-
Dim vDate As Variant
vDate = Fix (Today + 30)
doc.DateTimeField = vDate
HTH,
Bernhard
-
Und wenn's in LS sein soll dazu noch "evaluate".
Warum dieses, wenn doch die DateTime Klassen von script dazu eigene Methoden bieten?
Fangen übrigens alle mit Adjust an. und in diesem Fall wäre das Adjustday
-
oh super danke seit ihr schnell!
-
Warum dieses, wenn doch die DateTime Klassen von script dazu eigene Methoden bieten?
Ich weiss auch nicht alles :'(
-
Um nur dreissig Tage zu addieren, braucht man aber nicht den Umweg über die NotesDateTime class zu gehen ... Siehe oben ;)
Bernhard
-
Hallo,
habe auch ein ähnliches Problem.
Ich habe ein Datumsfeld mit dem Namen "gruendungsdatum"
Der Wert, der in dieses Feld eingegeben wird, soll beim verlassen auf 5 Jahre
erhöht werden und im Datumsfeld "jubilaeum" ausgegeben werden.
Habe mich schon daran versucht mit adjustyear zu arbeiten...aber bei meiner Lösung
wird das Datum im Debugger immer auf 00.00.00 gesetzt.
Liebe Notes-Gemeinde...kann mir jemand helfen??
-
Wie sollen wir Dir helfen ohne den Code zu kennen ???
-
hier ist er. (ich bin noch am testen :) )
Dim nextDateTime As New NotesDateTime(gruendungsdatum)
Call nextDateTime.Adjustyear( 5 )
wenn ich statt "gruendungsdatum" "heute" nehme,gehts. Ist aber für
mein Vorhaben unrelevant
-
wenn ich statt "gruendungsdatum" "heute" nehme,gehts. Ist aber für
mein Vorhaben unrelevant
Das ist aber eine gewagte Behauptung ;D
Also das funktioniert garantiert so nicht.
dim ws as new NotesUIWorkspace
dim uidoc as NotesUIDocument
dim doc as NotesDocument
set uidoc = ws.CurrentDocument
set doc = uidoc.Document
if uidoc.FieldGetText( "gruendungsdatum" ) <> "" then
Dim nextDateTime As New NotesDateTime( doc.gruendungsdatum(0) )
Call nextDateTime.Adjustyear( 5 )
doc.jubilaeum = nextDateTime.LSLocalTime
End If
So und nicht anders gehts.
Andreas
-
vielen Dank. Das war´s.
Leider bin ich bei Datums-Berechnungen immer etwas unsicher und die
Notes Hilfe ist da auch nicht immer hilfreich.
Danke nochmal.