例: IsDST property (NotesDateTime - LotusScript®)

次のスクリプトは NotesDateTime オブジェクトを作成して今日の日時を設定します。また、現在サマータイムが有効かどうかを調べます。

Dim dateTime As New NotesDateTime( "" )
Call dateTime.SetNow
If dateTime.IsDST Then
  Messagebox( "Enjoy the long days." )
Else
  Messagebox( "Endure the darkness." )
End If