LCCurrency の Add メソッド

このメソッドは 2 つの LCCurrency 値を足して、合計を算出します。合計値は呼び出し元のオブジェクトに返されます。

定義位置

LCCurrency

構文

Call currencyTotal.Add(currency1, currency2)

パラメータ

パラメータ	説明
currency1	LCCurrency。合計する 2 つの LCCurrency の 1 つ目。
currency2	LCCurrency。合計する 2 つの LCCurrency の 2 つ目。

使用法

CurrencyTotal には次のように 2 つの引数のうちの一方も指定できます。

Call runningTotal.Add(runningTotal, newAmount)

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

例

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

出力例

The sum of the two currencies is 24691.3578