•Function
CalculateFICA(ByVal ytdEarnings As Double, _
• ByVal curEarnings As
Double) _
• As
Double
• Dim socialSecurityBenTax, medicareTax As
Double
• If (ytdEarnings + curEarnings) <= 84900
Then
• socialSecurityBenTax = 0.062 *
curEarnings
• ElseIf ytdEarnings < 84900 Then
• socialSecurityBenTax = 0.062 * (84900 -
ytdEarnings)
• End If
• medicareTax = 0.0145 * curEarnings
• Return socialSecurityBenTax +
medicareTax
•End
Function