經(jīng)紀(jì)人獎(jiǎng)勵(lì)函數(shù)

hellobear

Function jjrjl(bjzcl, bzyj)
'經(jīng)紀(jì)人獎(jiǎng)勵(lì)函數(shù)
   
    jjrjl = 0
   
   '1
    If bjzcl > 0 And bjzcl < 5000 Then
   
       jjrjl = Switch(bzyj >= 0.0015, ((bzyj - 0.0015) * 10000 * 0.05 + 1) * 50, bzyj < 0.0015, (1 - (0.0015 - bzyj) * 10000 * 0.2) * 50)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 50 * 1.3, 50 * 1.3, jjrjl > 0 And jjrjl < 50 * 1.3, jjrjl)
      
       Exit Function
      
    End If
      
    '2
    If bjzcl >= 5000 And bjzcl < 20000 Then
       jjrjl = Switch(bzyj >= 0.0012, ((bzyj - 0.0012) * 10000 * 0.05 + 1) * 150, bzyj < 0.0012, (1 - (0.0012 - bzyj) * 10000 * 0.2) * 150)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 150 * 1.3, 150 * 1.3, jjrjl > 0 And jjrjl < 150 * 1.3, jjrjl)
       Exit Function
   
    End If
   
    '3
    If bjzcl >= 20000 And bjzcl < 50000 Then
   
       jjrjl = Switch(bzyj >= 0.0012, ((bzyj - 0.0012) * 10000 * 0.05 + 1) * 250, bzyj < 0.0012, (1 - (0.0012 - bzyj) * 10000 * 0.2) * 250)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 250 * 1.3, 250 * 1.3, jjrjl > 0 And jjrjl < 250 * 1.3, jjrjl)
      
       Exit Function
   
    End If
   
   '4
    If bjzcl >= 50000 And bjzcl < 20000 Then
   
       jjrjl = Switch(bzyj >= 0.001, ((bzyj - 0.001) * 10000 * 0.05 + 1) * 400, bzyj < 0.001, (1 - (0.001 - bzyj) * 10000 * 0.2) * 400)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 400 * 1.3, 400 * 1.3, jjrjl > 0 And jjrjl < 400 * 1.3, jjrjl)
      
       Exit Function
    End If
   
   
   '5
    If bjzcl >= 200000 And bjzcl < 500000 Then
       jjrjl = Switch(bzyj >= 0.001, ((bzyj - 0.001) * 10000 * 0.05 + 1) * 600, bzyj < 0.001, (1 - (0.001 - bzyj) * 10000 * 0.2) * 600)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 600 * 1.3, 600 * 1.3, jjrjl > 0 And jjrjl < 600 * 1.3, jjrjl)
      
       Exit Function
    End If
   
   
    '6
    If bjzcl >= 500000 And bjzcl < 2000000 Then
       jjrjl = Switch(bzyj >= 0.001, ((bzyj - 0.001) * 10000 * 0.05 + 1) * 800, bzyj < 0.001, (1 - (0.001 - bzyj) * 10000 * 0.2) * 800)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 800 * 1.3, 800 * 1.3, jjrjl > 0 And jjrjl < 800 * 1.3, jjrjl)
      
       Exit Function
    End If
   
   
    '7
    If bjzcl >= 2000000 And bjzcl < 5000000 Then
     jjrjl = Switch(bzyj >= 0.0008, ((bzyj - 0.0008) * 10000 * 0.05 + 1) * 1000, bzyj < 0.0008, (1 - (0.0008 - bzyj) * 10000 * 0.2) * 1000)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 1000 * 1.3, 1000 * 1.3, jjrjl > 0 And jjrjl < 1000 * 1.3, jjrjl)
      
       Exit Function
    End If
   
   
    '8
    If bjzcl >= 5000000 And bjzcl < 10000000 Then
       jjrjl = Switch(bzyj >= 0.0008, ((bzyj - 0.0008) * 10000 * 0.05 + 1) * 1500, bzyj < 0.0008, (1 - (0.0008 - bzyj) * 10000 * 0.2) * 1500)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 1500 * 1.3, 1500 * 1.3, jjrjl > 0 And jjrjl < 1500 * 1.3, jjrjl)
      
       Exit Function
    End If
   
   
   
    '9
    If bjzcl >= 10000000 Then
       jjrjl = Switch(bzyj >= 0.0008, ((bzyj - 0.0008) * 10000 * 0.05 + 1) * 2000, bzyj < 0.0008, (1 - (0.0008 - bzyj) * 10000 * 0.2) * 2000)
       jjrjl = Switch(jjrjl <= 0, 0, jjrjl >= 2000 * 1.3, 2000 * 1.3, jjrjl > 0 And jjrjl < 2000 * 1.3, jjrjl)
      
       Exit Function
    End If

todaynew

超額累進(jìn)（退）算法可以簡(jiǎn)化為
y=ax+b
b為速算系數(shù)。
這樣可以用一張表存：區(qū)間編號(hào)、區(qū)間、比率、速算系數(shù)。
然后通過(guò)區(qū)間編號(hào)的引用，通過(guò)上述公式，計(jì)算需要的結(jié)果。
這樣做的好處是數(shù)據(jù)便于維護(hù)，不至于去改VB代碼中的數(shù)據(jù)。

僅供參考

咱家是貓

看不懂,對(duì)經(jīng)濟(jì)人不熟

andymark

參數(shù)用表保存,簡(jiǎn)單易拓展

ACMAIN_CHM

超額累進(jìn)（退）算法可以簡(jiǎn)化為
y=ax+b
b為速算系數(shù)。
這樣可以用一張表存：區(qū)間編號(hào)、區(qū)間、比率、速算系數(shù)。
然后通過(guò)區(qū)間編號(hào)的引用，通過(guò)上述公式，計(jì)算需要的結(jié)果。
這樣做的好處是數(shù)據(jù)便于維護(hù)，不至于去改 ...
todaynew 發(fā)表于 2009-2-13 13:34

個(gè)稅的算法。這樣比較容易。

ynjxw

todaynew 發(fā)表于 2009-2-13 13:34
超額累進(jìn)（退）算法可以簡(jiǎn)化為
y=ax+b
b為速算系數(shù)。

能有個(gè)例子就好了。