Question

我需要有关此代码的帮助。现在这是关注日历年度季度，但我想修改它以查看财政年度季度。

    Function test(time)
        Quarter = Format(time, "YYYYq")

        For vRow = 2 To 1000               
            report_time = Format(Sheets("data").Range("A" & vRow).Value, "YYYYq")

            Assessment = Sheets("data").Range("V" & vRow).Value  

            If (report_time = Quarter) Then
                denominator = denominator + 1
                If (Assessment= 1) Then
                    numerator = numerator + 1
                End If
            End If
        Next

        If denominator > 0 Then
            test = numerator / denominator
        Else
            test = 0
        End If            
    End Function

我很感激您的时间和建议。

Answer 1

由于我需要输入更多数据，因此评论中没有足够的空间。

在财务报告方面，您将拥有财务，日历和实际。所以请验证，

如果您正在与任何数据供应商合作以获取会计年度数据。
如果您打算对数据进行任何日历化处理？例如将会计年度数据转换为日历年数据等...
如果您要将一家公司的会计年度数据与另一家公司的财务年度数据进行比较
或者您只是尝试在没有任何日历化的情况下，从用户输入的任何会计年度中编制财务季度？

因此，如果您希望您的代码对用户选择的所有会计年度/半年度/季度都是通用的，那么您需要一个漂亮的robus逻辑。 ;）因为9月结束的Apple US会计年度与6月份的BHP AU不同。

如果财政年度第四季度与历年第四季度December不符，财政年度的寿命从一个日历年到另一个日历年是不可避免的。 最痛苦的水平是您的财政季度不属于日历季度。财政年度在奇数月结束的地方.. 。例如。 WallMart US with January 31。通常一些欧洲或英国股票似乎具有这种性质。因此，在这种情况下，您必须每月验证一次。

我有时会做一个日历工具。因此，如果您能清楚地澄清您的要求，请尽快提供帮助。

计算财政季度

1 个答案: