Datums wert in ein feld Setzen

[brathaenchen]

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

[Driri]

Schau Dir mal @Adjust in der Designer-Hilfe an.

[klaussal]

Und wenn's in LS sein soll dazu noch "evaluate".

[koehlerbv]

Dim vDate As Variant

vDate = Fix (Today + 30)
doc.DateTimeField = vDate

HTH,
Bernhard

[Thomas Schulte]

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

[brathaenchen]

oh super danke seit ihr schnell!

[klaussal]

Warum dieses, wenn doch die DateTime Klassen von script dazu eigene Methoden bieten?

Ich weiss auch nicht alles 

[koehlerbv]

Um nur dreissig Tage zu addieren, braucht man aber nicht den Umweg über die NotesDateTime class zu gehen ... Siehe oben 

Bernhard

[stussy]

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??

[Glombi]

Wie sollen wir Dir helfen ohne den Code zu kennen 

[stussy]

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

[Glombi]

wenn ich statt "gruendungsdatum" "heute" nehme,gehts. Ist aber für
mein Vorhaben unrelevant

Das ist aber eine gewagte Behauptung 

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

[stussy]

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.