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 月に終了する会計年度は 6 月と同じではないためBHP AU..

会計年度の第 4 四半期が暦年の第 4 四半期と一致しない場合、会計年度が暦年ごとに存続することは避けられませんDecember。最も苦痛なレベルは、会計四半期が暦四半期に収まらない場合です。会計年度が奇数月に終わる場合.. 例WallMart US with January 31。通常、一部のヨーロッパまたは英国の株式はこの性質を持っているようです。したがって、その場合は毎月検証する必要があります。

いつかカレンダー化されたツールを作成しました。したがって、要件を明確に明確にできる場合は、喜んでお手伝いします。

于 2013-01-08T11:17:08.777 に答える