例: DecimalSep property

この例が表示する 10 進数国別設定は、小数部の桁数、整数部分と小数部分を区切る区切り記号、1000 単位の区切り記号、数値が (整数部分のない) 小数のときに小数点の前にゼロを付けるかどうかです。

Dim session As New NotesSession
Dim international As NotesInternational
Set international = session.International
Messagebox international.CurrencyDigits,, _
"Number of decimal digits"
Messagebox international.DecimalSep,, "Decimal separator"
Messagebox international.ThousandsSep,, "1000s separator"
If international.IsCurrencyZero Then
  Messagebox "Yes",, "Leading zero?"
Else
  Messagebox "No",, "Leading zero?"
End If