LOTUSSCRIPT /COM/OLE のクラス

例: DateSep プロパティ
次の例は、日付の国別設定値を表示します。設定値は日付形式の表示順 (日月年、月日年、または年月日)、区切り記号、および昨日、今日、明日を表すキーワードです。

Dim session As New NotesSession
Dim international As NotesInternational
Set international = session.International
If international.IsDateDMY Then
 Messagebox "DMY",, "Format of date"
Elseif international.IsDateMDY Then
 Messagebox "MDY",, "Format of date"
Elseif international.IsDateYMD Then
 Messagebox "YMD",, "Format of date"
Else
 Messagebox "Unknown",, "Format of date"
End If
Messagebox international.DateSep,, "Date separator"
Messagebox international.Yesterday & Chr(10) & _
international.Today & Chr(10) & _
international.Tomorrow ,, "Text of date keywords"

関連項目