0

CSVファイルから情報を取得する計算を行うこのサブがあります。

Private Sub getTotalAmt(intDuration As integer, strProgrameType As String)

私は別のサブを持っています:

Private Sub getMembershipDiscount(ByRef dtDOB As Date, dblTotalAmt as Double)

顧客の年齢を計算し、年齢に基づいて割引を提供します。これを行うには、上記の Sub ( getTotalAmt) からこの Sub プロシージャへの合計金額を取得する必要があります。

私の質問は、そのサブプロシージャから合計金額を受け取る方法ですか?

4

2 に答える 2

3

定義上、サブルーチンには出力がありません。
代わりに、関数を記述します。あなたの場合、あなたが持っているコードを次のように変更してください：

private function getTotalAmt(intDuration As integer, strProgrameType As String) as double
     'do the same maths you do in the sub, and store your answer in a variable called "whatever" 
     getTotalAmt = whatever
end function

次に、関数を使用します。

sub IUseFunctions()
   dim myDiscount as double
   myDiscount = getTOtalAtm(1,"s")
end sub

この例では、割引値が double 型の数値に格納されると判断しました。getTotalAmt 関数の一番上の行で、これを好きなように変更できます。

于 2013-11-11T02:21:00.490 に答える