Module using decimals in Get Rating sequence

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
Laura said:
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
Click to expand...


Is this all you want

Case Is < .50
 
Back
Top