cunstom function

[dennisli]

I just wrote a simple custom function but it does not work. The function only show one result: No Treat Year.
Any suggestions will be appreciated.
Dennis

Public Function TreatYear(LossDate)

Const TY1985B = 10 / 1 / 1985
Const TY1986B = 12 / 1 / 1986
Const TY1987B = 12 / 1 / 1987

Const TY1985E = 11 / 30 / 1986
Const TY1986E = 11 / 30 / 1987
Const TY1987E = 11 / 30 / 1988


Select Case LossDate
Case TY1985B To TY1985E: TreatYear = 1985
Case TY1986B To TY1986E: TreatYear = 1986
Case TY1987B To TY1987E: TreatYear = 1987
Case Else: TreatYear = “No Treat Year"

End Select

End Function

 

[Norie]

Your constant's aren't dates, there 10 divided by 1 divided by 1985, 12 divided by 1 divided by 1986 etc

If you want them to be dates try this.

Const TY1985B = #10/1/1985#
Const TY1986B = #12/1/1986#
Const TY1987B = #12/1/1987#

Const TY1985E = #11/30/1986#
Const TY1986E = #11/30/1987#
Const TY1987E = #11/30/1988#

 

[dennisli]

thanks lot. have a good day