Dim dt As NotesDateTime
Dim dtItem As NotesItem
Set dt = New NotesDateTime("2010-01-01")
Set dtItem = New NotesItem(doc,"Year","")
Set dtItem.DateTimeValue = dt
dtItem.IsSummary = True 'display the item value on view
Dim dtItem As NotesItem
Set dt = New NotesDateTime("2010-01-01")
Set dtItem = New NotesItem(doc,"Year","")
Set dtItem.DateTimeValue = dt
dtItem.IsSummary = True 'display the item value on view