Mega Code Archive
Pass Decimal by reference
<![CDATA[
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
]]>