例: NotesInternational class

次の例は 3 つの国別設定値を調べ、スクリプトが標準として認識するものと異なる場合には、設定値を表示します。

Dim session As New NotesSession
Dim international As NotesInternational
Dim exString As String
Set international = session.International
If international.CurrencySymbol <> "$" Then
  exString = "Currency symbol is " _
  & international.CurrencySymbol
End If
If international.DecimalSep <> "." Then
  If exString <> "" Then
    exString = exString & Chr(10)
  End If
  exString = exString & "Decimal separator is " _
  & international.DecimalSep
End If
If international.IsTime24Hour Then
  If exString <> "" Then
    exString = exString & Chr(10)
  End If
  exString = exString & "Time is 24-hour"
End If
If exString = "" Then
  Messagebox "No exceptions",, "Display exceptions"
Else
  Messagebox exString,, "Display exceptions"
End If