例: CurrencySymbol property

次の例が表示する通貨国別設定は、通貨記号、通貨記号と数値の間にスペースを入れるかどうか、通貨記号を数値の後に付けるかどうか、です。

Dim session As New NotesSession
Dim international As NotesInternational
Set international = session.International
Messagebox international.CurrencySymbol,, "Currency symbol"
If international.IsCurrencySpace Then
  Messagebox "Yes",, _
  "Space between currency symbol and number?"
Else
  Messagebox "No",, _
  "Space between currency symbol and number?"
End If
If international.IsCurrencySuffix Then
  Messagebox "Yes",, "Currency symbol follows number?"
Else
  Messagebox "No",, "Currency symbol follows number?"
End If