vba - VBA Excel：四分之一的模数

Question

请帮助我定义四分之一的模函数：QuarterMod()

该功能是表示当您及时采取一定数量的季度时您将获得的季度。

例子：

今天，2013 年 7 月，我们处于第三季度。

从现在开始，我们将在一年后的哪个季度？那么，今天的季度加上一年，即3 + 4

Ans = QuarterMod(3 + 4)
Ans = 3

更多示例：

QuarterMod(-1) = 3     
QuarterMod(0) = 4 
QuarterMod(1) = 1 
QuarterMod(2) = 2 
QuarterMod(3) = 3 
QuarterMod(4) = 4
QuarterMod(5) = 1 

等等。

Answer 1

你的意思是这样吗？...

Function QuarterMod(ByVal n As Integer) As Integer
If n = 0 Then
  QuarterMod = 0
  Exit Function
End If
QuarterMod = n Mod 4
If QuarterMod = 0 Then QuarterMod = 4
If QuarterMod < 0 Then QuarterMod = QuarterMod + 4
End Function

Answer 2

这个怎么样：

Public Function QuarterMod(Qtr As Integer)
   Dim i As Integer
   i = Qtr Mod 4
   If i <= 0 Then
      i = i + 4
   End If
   QuarterMod = i

End Function