Dim doc As NotesDocument
Dim dtNew As New NotesDateTime("")
Dim varOld As Variant, varNew As Variant
Set doc = Source.Document
Call dtNew.SetNow
varOld = doc.GetItemValue("DateList")
varNew = Fulltrim(Arrayappend(varOld, dtNew.LSLocalTime))
Call doc.ReplaceItemValue("DateList", varNew)
Also dieser Code (aus einem QuerySave einer Maske) macht bei mir genau das, was Du (nach meinem Verstaendnis) erreichen moechtest.
Andreas
@Bernhard, ist zwar syntaktisch richtig, was du schreibst, aber man sollte Arrayfunktionen nicht geschachtelt verwenden:
http://atnotes.de/index.php/topic,45919.msg295415.html#msg295415
weiterhin sollte man ArrayAppend NICHT mit Datum/Zeit verwenden
http://www-01.ibm.com/support/docview.wss?uid=swg21169797
und im Code von Hatschi ein isDate() gesehen. Auch dieses sollte man mit Vorsicht verwenden:
http://www-01.ibm.com/support/docview.wss?uid=swg21304700
An dieser Stelle frage ich mich: "Was geht eigentlich" ???
Am "Saubersten" finde ich:
Set item = doc.getFirstItem("datumsfeld")
on error resume next
ndtArray = item.GetValueDateTimeArray()
on error goto handle
if isArray(ndtArray) then
redim preserve ndtArray(ubound(ndtArray) + 1)
else
redim ndtArray(0)
end if
set ndtArray(ubound(ndtArray)) = new NotesDateTime(...)
call doc.replaceItemValue("datumsfeld", ndtArray)
Gruß
Roland