例: DateTimeValue property

  1. 次のスクリプトは DateTimeValue プロパティを使って文書の DateComposed アイテムの値を NotesDateTime オブジェクトに設定します。例えば、DateComposed アイテムが値「03/20/96」を含む場合、dateTime オブジェクトは 1996 年 3 月 20 日という日付を表します。
    Dim item As NotesItem
    Dim dateTime As NotesDateTime
    Set item = doc.GetFirstItem( "DateComposed" )
    Set dateTime = item.DateTimeValue
  2. 次のスクリプトは文書の DateApproved アイテムの値を今日の日付に設定します。例えば、今日が 1996 年 1 月 17 日の場合、スクリプトは DateApproved アイテムを 01/17/96 に設定します。
    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 )