LCCurrency の Subtract メソッド

このメソッドはある LCCurrency 値から別の LCCurrency 値を引き、結果を作成します。結果は呼び出し元のオブジェクトに格納されます。

定義位置

LCCurrency

構文

Call currencyResult.Subtract (currency1, currency2)

パラメータ

パラメータ	説明
currency1	LCCurrency。最初の LCCurrency で、ここから 2 つ目の Currency 値を引きます。
currency2	LCCurrency。currency1 から引く値。

使用法

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

Call remainingAmt.Subtract(remainingAmt, deduction)

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

例

Option Public
Uselsx "*lsxlc"  
Sub Initialize
  Dim num1 As New LCCurrency //For LEI
  Dim num2 As New LCCurrency
  Dim diff As New LCCurrency
  num1.Value = 98765.4321
  num2.Value = 12345.6789
  Call diff.Subtract (Num1, Num2)
  Print "The difference of the two currencies is " & diff.Text
End Sub

出力例

The difference of the two currencies is 86419.7532.