EXCEL VBA 自定义函数 招标代理费计算

依据《国家发展计划委员会文件计价格［2002］1980号》计算招标代理费的自定义函数

Option Explicit

Function 招标代理费(服务类型 As String, 中标金额 As Double) As Double
    Dim brr
    
    If 服务类型 = "货物" Then        '货物
        brr = [{
  1.50,1.10,0.80,0.50,0.25,0.05,0.01}/100]
    ElseIf 服务类型 = "服务" Then    '服务
        brr = [{
  1.50,0.80,0.45,0.25,0.10,0.05,0.01}/100]
    ElseIf 服务类型 = "工程" Then    '工程
        brr = [{
  1.00,0.70,0.55,0.35,0.20,0.05,0.01}/100]
    Else
        招标代理费 = "error"