サンプル・スクリプト

このスクリプトには、次の情報が含まれます:

• 呼出しルーチンで記述されたサンプル文。

• 呼出しルーチンに設定され、Pro_Rata_Ratio関数に渡される変数。

• Pro_Rata_Ratio関数と同一になるように設定された呼出しルーチンの変数名。

  Sub Calculate()
  Dim Destination  'Destination POV
  Dim SourceN      'Source Numerator POV 
  Dim SourceD      'Source Denominator POV 
  Destination = "A#MarginPct"
  SourceN = "A#GrossMargin"
  SourceD = "A#TotalRevenues	"
  Call Pro_Rata_Ratio(Destination,SourceN,SourceD)
  End Sub
  ' Beginning of the Pro_Rata_Ratio function
  Sub Pro_Rata_Ratio(Destination,SourceN,SourceD)
  HS.EXP Destination & " = " & SourceN & " / " & SourceD
  End Sub