LOTUSSCRIPT/COM/OLE CLASSES
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
See Also