15. marts 2010 - 19:30Der er
4 kommentarer og 1 løsning
sidste 4 hele kvartaler + indeværende
Hej Eksperter
Efter lidt søgning herinde fandt jeg ud af hvordan man konverterede en dato til kvartal+år. "Format([DATE_];"q yyyy")"
Nu kunne jeg godt tænke mig at filtrere mine data så jeg kun ser de seneste 4 hele kvartaler + indeværende kvartal. Det er altså ikke nok blot at trække 12 måneder fra dags dato, da det første kvartal ikke bliver et helt kvartal.
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Er det ikke det samme som at se alle poster, der er nyere end DagsDato minus 15 måneder?
Altså noget i stil med at du i din forespørgsel ændrer formatet til Format([DATE_];"yyyy q"). og så angiver kriteriet >=Format(DateAdd("m", -15, Date),"yyyy q")
Jeg har med held brugt en funktion der finder første dag i et kvartal Hvis du kalder den med fhpDate_Quarter_First(Now() - 365) så skulle du gerne få 1-1-2009
Public Function fhpDate_Quarter_First(datValue As Date) As Date ' ----------------------------------------------------------------------------------- ' Purpose : Returnerer den første dag i kvartal ' Parameters : ' Returns : Date ' Created : 16-03-2010 ' Modified : ' Remarks : ' ----------------------------------------------------------------------------------- On Error GoTo Error_fhpDate_Quarter_First Dim datResult As Date Dim intMonth As Integer Dim intYear As Integer
Select Case intMonth Case 1, 2, 3 intMonth = 1 Case 4, 5, 6 intMonth = 4 Case 7, 8, 9 intMonth = 7 Case 10, 11, 12 intMonth = 10 End Select
datResult = "1-" & intMonth & "-" & intYear
Exit_fhpDate_Quarter_First: fhpDate_Quarter_First = datResult Exit Function
Error_fhpDate_Quarter_First: datResult = Date Select Case Err.Number Case 3021 Case 2501 Case Is < 0 Case Else MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpDate_Quarter_First'" fhpError_Display "mod_Date_Time", "fhpDate_Quarter_First" End Select Resume Exit_fhpDate_Quarter_First
Simple løsninger = Gode løsninger ;o) Takker for point
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.