LOTUSSCRIPT /COM/OLE のクラス

例:NotesInternational クラス
次の例は 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

関連項目