求一数值处理思路,该怎么处理

求一数值处理思路
求一数值的算法 相当于要实现 买N送一 模块

变量Z是买的总数

现设定买2送一

z=2 时 算2
z=3 时 算2
z=4 时 算3
z=5 时 算4
z=6 时 算4
z=7 时 算5
以此类推

有谁知道应该怎么写？
我不想用IF z=2 THEN这样一句一句来，那样太死，所以想找个规律，有谁知道我意思的帮下忙，给下思路

[解决办法]
private function GetN(z as long) as long
dim x as double
x=2*z/3
if x=int(x) then
GetN=x
else
GetN=int(x)+1
end if
end function
[解决办法]
递归方法可以处理。
[解决办法]

VB code

Option ExplicitPrivate Sub Command1_Click()    Debug.Print funSaleNum(13)End SubPrivate Function funSaleNum(intSaleTotal As Integer) As Integer    If intSaleTotal = 1 Then        funSaleNum = 1    ElseIf intSaleTotal = 2 Then        funSaleNum = 2    ElseIf intSaleTotal = 3 Then        funSaleNum = 2    Else        intSaleTotal = intSaleTotal - 3        funSaleNum = funSaleNum(intSaleTotal) + 2    End IfEnd Function
[解决办法]
z=2 时 算2
z=3 时 算2
z=4 时 算3
z=5 时 算4
z=6 时 算4
z=7 时 算5

------------------

看不出规律来.