CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede al_pacone Nybegynder
01. november 2006 - 12:16 Der er 5 kommentarer og
1 løsning

Find første og sidste dag i et kvartal.

Hvordan finder jeg første og sidste dag i et kvartal, når jeg har et årstal og et kvartalsnummer?

4. kvartal 2006, returnerer 01-10-2006 og 31-12-2006
Avatar billede al_pacone Nybegynder
01. november 2006 - 13:03 #1
Følgende finder sidste dag.

Dim LastDay As Date
LastDay = DateAdd("q", DateDiff("q", 0, Date), 1)
Avatar billede al_pacone Nybegynder
01. november 2006 - 13:14 #2
Måske ikke den mest elegante løsning???

Dim LastDay As Date
Dim FirstDay As Date
LastDay = DateAdd("q", DateDiff("q", 0, Date), 1)
FirstDay = DateAdd("d", 1, DateAdd("m", -3, LastDay))
Avatar billede bak Forsker
01. november 2006 - 13:20 #3
Udmærket løsning :-)

her er en lidt anden

Function QuarterFirst(y, q)
QuarterFirst = DateSerial(y, q * 3 - 2, 1)
End Function

Function QuarterLast(y, q)
QuarterLast = DateSerial(y, q * 3 + 1, 0)
End Function
Avatar billede al_pacone Nybegynder
01. november 2006 - 15:49 #4
Det var en jeg fandt på nettet.

http://www.databasejournal.com/features/mssql/article.php/3076421

Din løsning er dog noget mere elegant end min.
Ligger du et svar for indsatsen.

Tak for hjælpen.
Avatar billede bak Forsker
01. november 2006 - 16:24 #5
ok giv mig halvdelen og resten til dig selv :-)
Avatar billede al_pacone Nybegynder
01. november 2006 - 19:12 #6
Når man har 3300 point man ikke rigtigt kan få brugt, så er 30 point ikke alverden.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Problemer med at åbne filer i Google Drev Af TTA i Excel 0 I dag 08:22 -
vCard æøå bliver til ? Af HHA i Excel 14 I går 12:02 I går 19:53
Hvordan genererer jeg 7 tilfældige værdier i 7 celler baseret på værdierne 1-7 Af martens i Excel 4 28/02/202515:55 01/03/202508:23
Negativ tid Af camsti i Excel 13 28/02/202500:39 I dag 10:15
Gennemstreg hvis dropdown værdi er Ja Af HTR i Excel 5 27/02/202513:18 28/02/202513:31
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:09 Windows Update virker ikke. Af barth i Andet software
I dag 08:22 Problemer med at åbne filer i Google Drev Af TTA i Excel
I går 19:46 Fil- og mappeantal stiger ved kopiering ("backup"). Hvorfor? Af hjertet i Windows
I går 15:59 Filer kan ikke åbnes. Af barth i Office & Kontorpakker
I går 14:10 Software Installation på separate disk. Af Owan i Office & Kontorpakker
White papers
Flere white papers »


Premium
Teaser billede
HP fyrer tusindvis af ansatte: 71 danske medarbejderes fremtid svæver i det uvisse
Læs mere »
SKI afblæser rammeaftale til 3,4 milliarder kroner: Er nødt til at ændre en række forhold
Er godt i gang med at opgradere til Windows 11: Der er flere ting, som du kan lære af Satairs erfaringer
Top-CIO Bo Bendsen har landet nyt job: Bliver CDIO i fagforbund
Se alle »
Computerworld
Teaser billede
Vi prøvekører den nye Tesla Model Y: Man kan sige hvad man vil om Elon Musk, men han kan saftsuseme godt bygge biler
Læs mere »
Ny mikro-pc er mindre end en spillekonsol og byder på super-evner
Flere millioner Chrome-brugere ramt af ondsindede udvidelser: Du skal selv afinstallere dem manuelt for at være beskyttet
Test: Nyt indendørs overvågningskamera har nogle snedige tricks gemt i softwarepakken
Se alle »
CIO
Teaser billede
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Læs mere »
Microsoft fuldender sit løfte om europæisk data-opbevaring – men der er en række undtagelser
Offentlige virksomheder hjemtager ejerskab af deres it: Her er årsagerne
Sådan gjorde Københavns Kommune klar til Windows 11 på 25.000 computere: "Vi har gjort det til en driftsopgave"
Se alle »
Job & Karriere
Teaser billede
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Læs mere »
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Se alle »
White paper
Teaser billede
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Læs mere »
TIDSBEGRÆNSET KAMPAGNE: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner GRATIS.
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »