Jeg leder efter en smart måde at finde antal dage i mellem to datoer - fordelt på år. (fordelt på år er den svære del)
Jeg har et regneark efter formen: A B 1 sag start ; sag slut; 2 12-12-2001 ;06-06-2006
Nu vil jeg gerne have at vide hvor mange dage der er mellem de to dato’er, (dette er jo ret simpelt).=b2-a2: svar 1637 dage
Men jeg vil desuden også gerne vide hvordan disse dage er fordelt på år. Således bør svaret være: 2001=19 dage; 2002=365 dage; 2003=365 dage; 2004=365 dage; 2005=365dage; 2006=156 365dage; i alt 1637 dage
Er der nogen der har en smart måde hvor på dette kan gøres i Excel.
Du kan læse om Excel og tid i denne udmærkede artikel af jkrons: http://www.eksperten.dk/artikler/681 Denne bør give dig en god idé til hvordan det bedst gøres - men du er naturligvis velkommen til at spørge hvis der er noget du ønsker forklaret yderligere. /Be_Nice
Public Function ÅrsFordeling(StartDato As Date, SlutDato As Date) As String Dim År As Integer, I As Date, Antal As Integer, Total As Integer År = Year(StartDato) For I = StartDato + 1 To SlutDato If Year(I) <> År Then ÅrsFordeling = ÅrsFordeling & År & " " & Antal & " dage ; " År = Year(I) Antal = 0 End If Antal = Antal + 1 Total = Total + 1 Next ÅrsFordeling = ÅrsFordeling & År & " " & Antal & " dage ; i alt " & Total & " dage"
Tak for indsatsten. Men jeg er bange for det ikke løser mit problem. Pointen er at jeg ikke kan være sikker på at første observation altid starter samme år. Se nedenstående. Desuden er der ca. 1000 række hvorfor det bliver uoverskueligt at gøre manuelt.
Jeg kan ikke rigtig få makroen til at virke, så jeg kan ikke sige den løser problemet. Jeg har arbejdet meget lidt med makroprogrammering, så det kan være en bruger fejl ;-) Men umiddelbart mener jeg ikke at den kan klare det.
Husk at du skal placere kabbaks løsning i et modul - og formlen skrives f.eks. i kolonne C. Hvis du så kopierer kabbaks elegante løsning til alle dine rækker, vil du få en angivelse af dage og år ud for hver dato-sæt. Det skulle være lige til. /Be_Nice
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.
