Function GetDays(level As Integer, startdate As Date)
 
    Dim NumYears As Integer, levels As Variant
    NumMonths = DateDiff("m", startdate, Date)
    NumYears = Fix(NumMonths / 12)
 
   Select Case (level)
    Case 4
    levels = Array(28, 30, 34, 40)
    Case 3
    levels = Array(24, 26, 27, 35)
    Case 2
    levels = Array(22, 24, 26, 28)
    Case 1
    levels = Array(12, 14, 16, 20)
    End Select
 
    Select Case (NumYears)
    Case 1 To 3
    GetDays = levels(0)
    Case 4 To 7
    GetDays = levels(1)
    Case 8 To 10
    GetDays = levels(2)
    Case Is > 10
    GetDays = levels(3)
    Case Else
    GetDays = 0
    End Select
End Function