4

Sql Server には便利な四半期ごとの機能が組み込まれていることは知っていますが、.Net ネイティブのDateTimeオブジェクトについてはどうでしょうか。四半期を加算、減算、トラバースする最良の方法は何ですか?

VB 固有のDateAdd()関数を使用するのは悪いことですか? 例えば：

Dim nextQuarter As DateTime = DateAdd(DateInterval.Quarter, 1, DateTime.Now)

編集: @bslorence の機能の拡張:

Public Shared Function AddQuarters(ByVal originalDate As DateTime, ByVal quarters As Integer) As Datetime
    Return originalDate.AddMonths(quarters * 3)
End Function

@Matt の機能の拡張:

Public Shared Function GetQuarter(ByVal fromDate As DateTime) As Integer
    Return ((fromDate.Month - 1) \ 3) + 1
End Function

編集：便利な機能がいくつかあります：

Public Shared Function GetFirstDayOfQuarter(ByVal originalDate As DateTime) As DateTime
    Return AddQuarters(New DateTime(originalDate.Year, 1, 1), GetQuarter(originalDate) - 1)
End Function

Public Shared Function GetLastDayOfQuarter(ByVal originalDate As DateTime) As DateTime
    Return AddQuarters(New DateTime(originalDate.Year, 1, 1), GetQuarter(originalDate)).AddDays(-1)
End Function
4

5 に答える 5

9

次の方法で日付の四半期を計算できることを知っています。

Dim quarter As Integer = (someDate.Month - 1) \ 3 + 1

Visual Studio 2008 を使用している場合は、 Extension Methodsを参照して、DateTime クラスに追加機能を追加してみてください。

于 2008-09-19T15:26:34.487 に答える
4

これはどう：

Dim nextQuarter As DateTime = DateTime.Now.AddMonths(3);
于 2008-09-19T15:18:45.393 に答える
1

覚えておくべきことの1つは、すべての企業が月末に四半期を終了するわけではないということです。

于 2008-09-19T15:48:03.500 に答える
1 
Public Function GetLastQuarterStart() As Date

    GetLastQuarterStart = DateAdd(DateInterval.Quarter, -1, DateTime.Now).ToString("MM/01/yyyy")

End Function

Public Function GetLastQuarterEnd() As Date

    Dim LastQuarterStart As Date = DateAdd(DateInterval.Quarter, -1, DateTime.Now).ToString("MM/01/yyyy")
    Dim MM As String = LastQuarterStart.Month
    Dim DD As Integer = 0
    Dim YYYY As String = LastQuarterStart.Year
    Select Case MM
        Case "01", "03", "05", "07", "08", "10", "12"
            DD = 31
        Case "02"
            Select Case YYYY
                Case "2012", "2016", "2020", "2024", "2028", "2032"
                    DD = 29
                Case Else
                    DD = 28
            End Select
        Case Else
            DD = 30
    End Select

    Dim LastQuarterEnd As Date = DateAdd(DateInterval.Month, 2, LastQuarterStart)

    MM = LastQuarterEnd.Month
    YYYY = LastQuarterEnd.Year

    Return String.Format("{0}/{1}/{2}", MM, DD, YYYY)

End Function
于 2013-01-04T16:08:49.347 に答える