Pass Decimal by reference : Pass by Reference « Class Module « VB.Net Tutorial






  1. VB.Net Tutorial
  2. Class Module
  3. Pass by Reference
Option Strict On

Public Module Tester
   Public Sub Main()
      Dim salary As Decimal = 400.00d
      Dim reviewPts As Integer = 12

      ReceiveRaise(salary, reviewPts)
      Console.WriteLine(salary)
   End Sub

   Function ReceiveRaise(ByRef salary As Decimal, ByVal reviewPts As Integer) _
                         As Boolean
         Dim increasePct As Decimal
         increasePct = ((reviewPts - 10) * .005d)
         salary = salary * (1 + increasePct)
         Return True
   End Function
End Module

404.000




6.4.Pass by Reference
6.4.1.Pass value by reference
6.4.2.Demonstrates passing by reference.
6.4.3.Pass class by reference
6.4.4.Pass Decimal by reference