LOTUSSCRIPT /COM/OLE のクラス

例:IsValidDate プロパティ
次の既存のスクリプトはユーザーが ［日付時刻］ フィールドの [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

関連項目