Attribute VB_Name = "modFunctions"
Option Explicit

Public Function Prime(s_m As Double, anc As Byte) As Double
Dim s_a As Double, x As Double
    s_a = s_m * 12
    Select Case anc
        Case 0
            x = 0
        Case 2 To 5
            x = anc * s_m * 0.1
        Case 6 To 10
            x = s_m * 0.5 + (Application.Min(anc, 10) - 5) * s_m / 7
        Case 11 To 20
            x = s_m * 8.5 / 7 + (Application.Min(anc, 20) - 10) * s_m / 5
        Case 21 To 30
            x = s_m * 22.5 / 7 + (Application.Min(anc, 30) - 20) * s_m / 4
        Case Else
            x = s_m * 40 / 7 + (anc - 30) * s_m / 3
            x = Application.Min(s_a, x)
    End Select
    Prime = x
End Function