呼出しルーチンで記述されたサンプル文。
呼出しルーチンに設定され、Increase_Decrease関数に渡される変数。
Increase_Decrease関数と同一になるように設定された呼出しルーチンの変数名。
Sub Calculate()
Dim Destination
Dim Source
Dim Factor
Dim Scale
Dim Inverse
Destination = "A#Telephone"
Source = "A#Telephone"
Factor = "A#Factor.C1#[None]"
Scale = "100"
Inverse = False
Call Increase_Decrease(Destination,Source,Factor,Scale,
Inverse)
End Sub
' Beginning of the Increase_Decrease function
Sub Increase_Decrease(Destination,Source,Factor,Scale,Inverse)
If Inverse = False Then
HS.EXP Destination & " = " & Source & " *
(1 + (" & Factor & " / " & Scale & "))"
Else
HS.EXP Destination & " = " & Source & " *
(1 + ((" & Factor & " * -1) / " & Scale & ))"
End If
End Sub