LCNumeric の Add メソッド

このメソッドは、2 つの LCNumeric オブジェクトの値を加算します。合計値は現在のオブジェクトに保存されます。このとき、既存の値は上書きされます。

定義位置

LCNumeric

構文

Call numericTotal. Add (numeric1, numeric2)

パラメータ

パラメータ	説明
numeric1	加算する最初の値です。
numeric2	加算する 2 番目の値です。

使用法

numericTotal は呼び出しに先立って初期化されていなければなりません。例えば、Nothing は使用できません。

このメソッドは、次に示すステートメントの例のように、numericTotal がいずれかの引数と同じ場合に便利です。

runningTotal.Add(runningTotal, rowAmount)

例

Option Public
Uselsx "*lsxlc" 
Sub Initialize
  Dim num1 As New LCNumeric
  Dim num2 As New LCNumeric
  Dim sum As New LCNumeric
  num1.Value = 12345.6789
  num2.Value = 12345.6789
  Call sum.Add (Num1, Num2)
  Print "The sum of the two numbers is " & sum.Text
End Sub

出力例

The sum of the two numbers is 24691.3578.