例: AMString, IsTime24Hour, PMString, TimeSep, and TimeZone properties

この例が表示する国別時刻設定は、24 時間制か 12 時間制、12 時間制の場合には「AM」と「PM」という文字列、時-分-秒の区切り文字、タイムゾーンです。

Dim session As New NotesSession
Dim international As NotesInternational
Set international = session.International
If international.IsTime24Hour Then
  Messagebox "24-hour",, "Time format"
Else
  Messagebox "12-hour",, "Time format"
  Messagebox international.AMString & Chr(10) & _
  international.PMString,, "AM and PM notation"
End If
Messagebox international.TimeSep,, "Time separator"
Messagebox international.TimeZone,, "Time zone"