Wie arbeite ich mit Viertel (vierteljährliche Daten) ASP.Net mit VB.Net 2.0?

Ich weiß, dass Sql Server hat einige nützliche eingebaute vierteljährlich Zeug, aber was ist mit den .Net native DateTime Objekt? Was ist der beste Weg, um hinzuzufügen, zu subtrahieren, und die traverse Viertel?

Ist es ein schlechte Sache™ verwenden Sie die VB-spezifische DateAdd() Funktion? z.B.:

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

Bearbeiten:
Erweiterung @bslorence Funktion:

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

Erweiterung @Matt Funktion:

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

Edit: hier noch ein paar weitere Funktionen wurden praktisch:

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

InformationsquelleAutor |

9

Ich weiß, kann man berechnen das Quartal eines Datums von:
```
Dim quarter As Integer = (someDate.Month - 1) \ 3 + 1
```
Wenn Sie Visual Studio 2008 verwenden, könnten Sie versuchen, Rohrverschraubung zusätzliche Funktionalität auf, die DateTime-Klasse, indem Sie einen Blick auf Extension-Methoden.

Ich würde gerne mit extension-Methoden! Leider ist dies für VS 2005/.Net 2.0. Danke für die Formel aber, dass werden in handliches kommen.
Sie nur versehentlich hat mich gelehrt, über den Unterschied zwischen '/' und'\', wenn es um die Aufteilung! Ich dachte, es war ein Tippfehler, aber das ist die integer-division symbol, nicht wahr? Anstatt Ihnen nur einen Bruchteil, es schneidet nur.

InformationsquelleAutor Matt Blaine
4

Wie wäre es damit:
```
Dim nextQuarter As DateTime = DateTime.Now.AddMonths(3);
```
Das ist funktionell äquivalent zu DateAdd(DateInterval.Quartal, 1, DateTime.Jetzt), ist sauberer als die Verwendung von VB-Funktion.

InformationsquelleAutor Ben Dunlap
1

Eine Sache zu denken Sie daran, dass nicht alle Unternehmen Ende Ihre Quartiere auf den letzten Tag eines Monats.

guter Punkt, ich werde überprüfen und sehen, wenn ich entsprechend auf den nächsten Werktag (was für ein Schmerz wäre das!)

InformationsquelleAutor Dan B

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

InformationsquelleAutor

1

Erweiterung auf Matt Blaine ' s Antwort:
```
Dim intQuarter As Integer = Math.Ceiling(MyDate.Month / 3)
```
Nicht sicher, ob das add-Geschwindigkeit nutzen oder nicht, aber es sieht sauberer aus, IMO

InformationsquelleAutor

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.