0

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

    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

我将不胜感激您的时间和建议。

4

1 回答 1

1

因为我有更多的数据要输入，并且评论中没有足够的空间。

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

  • 如果您正在与任何数据供应商合作以获取财政年度数据。
  • 如果您打算对数据进行任何日历化？例如将会计年度数据转换为日历年数据...等
  • 如果您要将一家公司的会计年度数据与另一家公司进行比较
  • 或者您正试图从用户输入的任何财政年度中简单地编写一个财政季度而不进行任何日历化？

因此，如果您希望您的代码对用户选择的所有会计年度/半年度/季度通用，那么您需要一个非常健壮的逻辑。;) 因为Apple US9 月结束的财政年度与BHP AU6 月不同..

如果财政年度 Q4 与日历年 Q4 不一致，那么财政年度的生命周期从一个日历年到另一个日历年是不可避免的December。最痛苦的阶段是当您的财政季度不属于日历季度时。财政年度在奇数月结束的地方...... 例如WallMart US with January 31。通常一些欧洲或英国股票似乎具有这种性质。因此，在这种情况下，您必须每个月进行验证。

我曾经做过一个日历工具。因此，如果您能清楚地阐明您的要求，很乐意提供帮助。

于 2013-01-08T11:17:08.777 回答