Aufbau einer monatlichen Gesamtsumme aus den letzten 12 Monaten

Question

CurrentMonth = Month(CurrentDate) 
CurrentYear = Year(CurrentDate) 

    SQL = "SELECT Spent, MONTH(Date) AS InvMonth, YEAR(Date) As InvYear FROM Invoices WHERE YEAR(Date) = '" & CurrentYear & "' AND MONTH(Date) = '" & CurrentMonth & "'" 
    RecordSet.Open SQL, Connection, adOpenStatic, adLockOptimistic, adCmdText 
    Do Until RecordSet.EOF 
     MTotal(i) = MTotal(i) + RecordSet.Fields("Spent") 
     RecordSet.MoveNext 
    Loop 
    RecordSet.Close 

Dies ist der Code, den ich derzeit für einen gegebenen Monat ausgeben muss. Ich möchte dies erweitern, um die Summen pro Monat für die letzten 12 Monate abzurufen. Die Art, wie ich das sehe, wäre, den CurrentMonth-Wert rückwärts zu durchlaufen, und wenn CurrentMonth den Wert 0 erreicht, den Wert von CurrentYear zurückrollen 1. Mit der Loop-Variable (i) ein Array von 12 Werten aufbauen : MTotal()

Was denkst du?

Answer 1

Eine Gruppe von sollte Sie auf dem Weg bekommen.

SELECT TOP 12 
    SUM(Spent) AS Spent 
    , MONTH(Date) AS InvMonth 
    , YEAR(Date) AS InvYear 
FROM 
    Invoices 
GROUP BY 
    YEAR(Date), MONTH(Date) 
WHERE DATEDIFF(mm, Date, GETDATE(()) < 12 

---

Joshs DATEDIFF ist eine bessere Lösung als meine ursprünglichen TOP und ORDER BY

Answer 2

Das einzige Problem dabei ist, dass ich eine monatliche Gesamt erfordern, für jedes der letzten 12 Monate eher dann der insgesamt für die letzten 12 Monate. Ansonsten sehe ich, wie die Verbesserung der SQL statt VB6-Code oculd wäre eine bessere Option.

Answer 3

ich durch „Runden“ das Datum des Monats angehen würde dies, und dann von diesem Monat aktuelle Gruppierung, und in Höhe von insgesamt abgebrannte Menge:

SELECT SUM(Spent) AS [TotalSpent], 
     DATEADD(Month, DATEDIFF(Month, 0, [Date]), 0) AS [MonthDate] 
FROM Invoices 
WHERE  [Date] >= '20080301' 
     AND [Date] < '20090301' 
GROUP BY DATEADD(Month, DATEDIFF(Month, 0, [Date]), 0) 
ORDER BY [MonthDate] 

Die [MonthDate] formatiert werden kann Monat anzuzeigen/Datum passend oder in getrennten Spalten.

Die WHERE-Klausel kann parametriert werden einen geeigneten Bereich von Datensätzen zur Verfügung zu stellen

Answer 4

enthalten sein Die Lösung kam ich mit wäre:

For i = 0 To 11 
    If CurrentMonth = 0 Then 
     CurrentMonth = 12 
     CurrentYear = CurrentYear - 1 
    End If 

    SQL = "SELECT Spent, MONTH(Date) AS InvMonth, YEAR(Date) As InvYear FROM Invoices WHERE YEAR(Date) = '" & CurrentYear & "' AND MONTH(Date) = '" & CurrentMonth & "'" 
    RecordSet.Open SQL, Connection, adOpenStatic, adLockOptimistic, adCmdText 
    Do Until RecordSet.EOF 
     MTotal(i) = MTotal(i) + RecordSet.Fields("Spent").Value 
     RecordSet.MoveNext 
    Loop 
    RecordSet.Close 

    CurrentMonth = CurrentMonth - 1 
Next 

Ich glaube, dies sollte wie erwartet funktionieren. Dennoch freue ich mich darauf, zu sehen, welche Lösungen Sie kommen können, oder wenn jemand ein Problem mit ym beheben kann.