graviz
Registered User.
- Local time
- Today, 01:08
- Joined
- Aug 4, 2009
- Messages
- 167
I have a function that converts a number of days field into 30 day buckets. I've been asked to keep increasing the number of buckets so I was wondering if there was a way to do it with a loop of some sort. It would always be in increments of 30 and it could say either "60 Days" or "2 Months" as an example. Any idea?
Code:
Function Days_Buckets(days_between As String) As String
Dim NN As Integer
NN = CInt(days_between)
Select Case NN
Case 1 To 30
Days_Buckets = "A_0-30 Days"
Case 31 To 60
Days_Buckets = "B_31-60 Days"
Case 61 To 90
Days_Buckets = "C_61-90 Days"
Case 91 To 120
Days_Buckets = "D_91-120 Days"
Case 121 To 150
Days_Buckets = "E_121-150 Days"
Case 151 To 180
Days_Buckets = "F_151-180 Days"
Case 181 To 210
Days_Buckets = "G_181-210 Days"
Case 211 To 240
Days_Buckets = "H_211-240 Days"
Case 241 To 270
Days_Buckets = "I_241-270 Days"
Case 271 To 300
Days_Buckets = "J_271-300 Days"
Case 301 To 330
Days_Buckets = "K_301-330 Days"
Case 331 To 360
Days_Buckets = "L_331-360 Days"
Case 361 To 390
Days_Buckets = "M_361-390 Days"
Case 391 To 420
Days_Buckets = "N_391-420 Days"
Case 421 To 450
Days_Buckets = "O_421-450 Days"
Case 451 To 480
Days_Buckets = "P_451-480 Days"
Case 481 To 510
Days_Buckets = "Q_481-510 Days"
Case 511 To 540
Days_Buckets = "R_511-540 Days"
Case Else
Days_Buckets = "S_Over 540"
End Select
End Function