例: IsValidDate property

次の既存のスクリプトはユーザーが［日付時刻］フィールドの [dtField] に入力した文字列「testdate」を調べます。testdate を使用して NotesDateTime オブジェクト dt を新規作成します。日付は dt オブジェクトの LocalTime で見つかった文字列に自動的に変換されます。この文字列が有効な日付でない場合、新しい日付の入力を求めるメッセージボックスが表示されます。

Sub Exiting(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim testdate As String
  Set uidoc = workspace.CurrentDocument
  testdate = uidoc.FieldGetText ( "dtField")
  Dim dt As New NotesDateTime(testdate)
  If Not dt.IsValidDate Then 
    Messagebox "Please enter a new date." , , "Invalid date"
    Call uidoc.GotoField ( "dtField")
  End If
End Sub