例: LastModified property (NotesDocument - LotusScript®)

次のスクリプトは文書が最後に更新された日付を取得して、日付を文書の modifyDate アイテムに設定します。例えば、LastModified は 10/31/95 10:42:31 AM のように返します。
```
Dim doc As NotesDocument
Dim modifyDate As Variant
'...set value of doc...
modifyDate = doc.LastModified
```
次のスクリプトは文書が最後に変更された日付を元にして、文書の PurgeDate アイテムの値を設定します。文書が 2 週間以上前に更新されたとき、スクリプトは PurgeDate に今日の日付を設定します。文書が 7 日前から 13 日前までの間に更新されたとき、スクリプトは PurgeDate を今日から 1 週間後の日付に設定します。
```
Dim doc As NotesDocument
Dim days As Integer
'...set value of doc...
days = Cint( Date - doc.LastModified )
If days > 14 Then
  doc.PurgeDate = Date
Else 
  If days > 7  Then
    doc.PurgeDate = Date + 7
  End If       
End If  
Call doc.Save( True, True )
```