Examples: DecimalSep property

This example displays the decimal international settings: the number of decimal (fraction) digits; the decimal separator (between the whole and fraction parts); the 1000s separator; and whether a zero precedes the decimal point if the number is a fraction (no whole part).

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