LOTUSSCRIPT /COM/OLE のクラス

例: DecimalSep プロパティ
次の例は、小数部分の国別設定値を表示します。表示する設定値は、小数部の桁数、整数部分と小数部分を区切る区切り記号、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

関連項目