ユーザー定義の定数

LotusScript® で認識できるスカラーデータ型を使用する限り、ユーザーはモジュールまたはプロシージャ内で独自の定数を定義できます。定数は、次の構文を使用して定義します。

[Public | Private] Const constName = expression

それぞれの意味は次のとおりです。

データ型の接尾辞を constName の最後に付けることにより、特定のデータ型になるように定数を定義できます。

以下に例を示します。

' Define a String constant, MYNAME.
Const MYNAME$ = "Andrea"
' Define a Single constant, MYPERCENT.
Const MYPERCENT! = 0.125
' Define a Currency constant, MYMONEY.
Const MYMONEY@ = 123.45

代替方法として、定数が数値であり、expression が数値リテラルである場合、expression に適切なデータ型の接尾辞を付けることにより、特定の数値データ型を指定できます。以下に例を示します。

' Define a Currency constant, MYCUR, with the value 123.45.
Const MYCUR = 123.45@

constName または式に接尾辞を付けない場合、expression の値によって定数のデータ型が決まります。

• 文字列の場合、データ型は String 型です。
• Single 型または Double 型の値の場合、データ型は Double 型です。
• 整数の場合、値の大きさに応じてデータ型は Integer 型か Long 型になります。

以下に例を示します。

Const MYNAME = "Sara"
' MYNAME is a constant of type String.
Const MYDOUBLE = 123.45
' MYDOUBLE is a constant of type Double.
Const MYINT = 123
' MYINT is an constant of type Integer.
Const MYLONG = 123456
' MYLONG is a constant of type Long.

定数を定義する Const ステートメントで接尾辞を使用したかどうかに関係なく、LotusScript アプリケーションで定数を参照する際は、常にデータ型の接尾辞を付けられます。接尾辞を使用する必要はありませんが、使用したほうがコードが読みやすくなります。

以下に例を示します。

Const MYADDRESS$ = "722 Smith Place"
Print MYADDRESS
' Output: 722 Smith Place
Const YOURADDRESS = "75 rue St. Viateur"
Print YOURADDRESS$
' Output: 75 rue St. Viateur
' Print MYADDRESS%, YOURADDRESS@ would cause an error.

Const MYMONEY@ = 123.45
Const MOREMONEY = MYMONEY * 2
Print TypeName(MOREMONEY)
' Output: CURRENCY
Print DataType(MOREMONEY)
' Output: 6

Const MYINT% = 10
' This MYINT% is defined at module level.
Sub MySub
   Const MYINT% = 100
   ' This MYINT% is defined within a procedure.
   Print MYINT%
End Sub
Call MySub
' Output: 100 
Print MYINT%
' Output: 10 

Use "A"