次のスクリプトは、1995 年 8 月 18 日の午後 1 時 36 分 22 秒を表す NotesDateTime オブジェクトを新しく作成します。
Dim session As New NotesSession
Dim dateTime As NotesDateTime
Set dateTime = session.CreateDateTime _
( "08/18/95 01:36:22 PM" )
Messagebox( dateTime.LocalTime )
Messagebox( dateTime.GMTTime )
- このスクリプトは、ダイアログボックスに LocalTime プロパティを表示します。東部標準時に設定されたコンピュータ上でスクリプトが実行された場合は、「08/18/95 01:36:22 PM EDT」を表示します。
- このスクリプトは、ダイアログボックスに GMTTime プロパティを表示します。例えば、東部標準時に設定されたコンピュータ上でスクリプトが実行され、サマータイムが設定されている場合は、「08/18/95 05:36:22 PM GMT」を表示します。コンピュータが中部標準時に設定されている場合は、「08/18/95 06:36:22 PM GMT」を表示します。