You can try following: Dim geDateOverdueVar As New NotesDateTime(Now) Call geDateOverdueVar.AdjustDay( 14 ) Set item = doc.GetFirstItem( "geActionedDateOverdue" ) Set item.DateTimeValue = geDateOverdueVar
Go back