Module using decimals in Get Rating sequence

[Guest]

How do I change this to use decimals? Instead of the answer being 50 it is
..50 or can I used percents like 50%.

Thank you in advance for your assistance.

Laura

Public Function GetPROFITRating(dblPROFIT As Double) _
As Integer
Select Case dblPROFIT
Case Is < 50
GetPROFITRating = 1
Case Is < 60
GetPROFITRating = 2
Case Is < 70
GetPROFITRating = 3
Case Is < 80
GetPROFITRating = 4
Case Else
GetPROFITRating = 5
End Select
End Function

 

[Douglas J. Steele]

Have you tried replacing the 50, 60 etc. with .50, .60 etc.

 

[Marshall Barton]

How do I change this to use decimals? Instead of the answer being 50 it is
.50 or can I used percents like 50%.

Public Function GetPROFITRating(dblPROFIT As Double) _
As Integer
Select Case dblPROFIT
Case Is < 50
GetPROFITRating = 1
Case Is < 60
GetPROFITRating = 2
Case Is < 70
GetPROFITRating = 3
Case Is < 80
GetPROFITRating = 4
Case Else
GetPROFITRating = 5
End Select
End Function

Is this all you want

Case Is < .50