Question

请协助我定义四分之一的模数函数：QuarterMod（）

该功能用于表示您在一定时间内完成一定时间后所获得的季度。

示例：

今天，Juli 2013，我们在第三季度。

从现在开始，我们将在一年内的哪个季度？那么，今天的季度再加上一年，即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

VBA Excel：季度模数

2 个答案: