Dim item As NotesItem
Dim dateTime As NotesDateTime
Set item = doc.GetFirstItem( "DateComposed" )
Set dateTime = item.DateTimeValue
Dim doc As NotesDocument
Dim item As NotesItem
Dim dateTime As NotesDateTime
'...set value of doc...
Set item = doc.GetFirstItem( "DateApproved" )
Set dateTime = New NotesDateTime( "Today" )
Set item.DateTimeValue = dateTime
Call doc.Save( False, True )