Could use some help with this Function 1

[penndro]

I am running this function in a query and I am getting zeros as the result which is not correct in all instances. Can you take a look and give me your opinion on the code:

Public Function GetEESSI(YTDSS As Double, EstTax As Double) As Double

Dim SSIMaxPay As Double
Dim SSIEeBasis As Double

SSIMaxPay = 4624.2
SSIEeBasis = 0.042

If YTDSS >= SSIMaxPay Then
GetESSI = 0
ElseIf ([EstTax] * [SSIEeBasis]) + YTDSS > SSIMaxPay Then
GetESSI = [SSIMaxPay] - [YTDSS]
Else
GetESSI = [EstTax] * [SSIEeBasis]
End If
End Function

Thanks

 

[PHV]

Public Function GetEESSI(YTDSS As Double, EstTax As Double) As Double

Dim SSIMaxPay As Double
Dim SSIEeBasis As Double

SSIMaxPay = 4624.2
SSIEeBasis = 0.042

If YTDSS >= SSIMaxPay Then
Get[!]E[/!]ESSI = 0
ElseIf ([EstTax] * [SSIEeBasis]) + YTDSS > SSIMaxPay Then
Get[!]E[/!]ESSI = [SSIMaxPay] - [YTDSS]
Else
Get[!]E[/!]ESSI = [EstTax] * [SSIEeBasis]
End If
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Use Option Explicit in VB. Look in Tools > Options -- Editor Tab -- Require Variable Declaration.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[penndro]

Ok, wow I feel stupid.

Thanks you both. Had a long partying weekend.

Appreciated.