Avatar billede pecl Nybegynder
17. september 2002 - 10:40 Der er 11 kommentarer og
1 løsning

Tælle dage pr. måned mellem to datoer

Er der en måde hvormed man kan tælle dage /måned mellem to datoer  ?
F.eks
Startdato: #05-08-02#
Slutdato: #12-12-02#

Hvor mange dage i august
Hvor mange dage i september
Hvor mange dage i oktober
o.s.v
Avatar billede terry Ekspert
17. september 2002 - 10:41 #1
Use the datediff function for doing this
Avatar billede minijensen1 Nybegynder
17. september 2002 - 10:44 #2
Avatar billede terry Ekspert
17. september 2002 - 10:48 #3
DateDiff("d", [Startdato], [Slutdato]) will give you how many days there are for the whole period
to do this for each month would involve some programming as it will be very likley that the period will change and therefore the number of months/days will change.
It also depend on HOW you want to see the result
Avatar billede pecl Nybegynder
17. september 2002 - 10:56 #4
Jeg ønsker at få et antal dage pr. måned f.eks i et sygedageregnskab hvor en person er syg i en periode ud over en kalendermåned - men dagene/timerne skal tælles pr. måned.
Avatar billede terry Ekspert
17. september 2002 - 11:01 #5
pecl>This IS going to take some programming so if you dont know much about that then I think you have some problmes!
How the code(VBA) is depends on HOW you want to see this information!

It isnt simple to extract each month from the date interval, but when that is done the datediff function can calculate the number of days in each month.
Access has some very good date functions so I suggest you take a look at those.
Avatar billede sjap Praktikant
17. september 2002 - 11:20 #6
Prøv med følgende funktion

Function DaysInMonth(StartDate As Date, EndDate As Date, Month As Integer) As Integer

Dim RunningDate As Long
DaysInMonth = 0
If EndDate > StartDate Then
    RunningDate = StartDate
    Do While RunningDate <= EndDate
        If DatePart("m", RunningDate) = Month Then
            DaysInMonth = DaysInMonth + 1
        End If
        RunningDate = RunningDate + 1
    Loop
End If

End Function
Avatar billede pecl Nybegynder
17. september 2002 - 12:56 #7
Hej Superjap
Hvordan får jeg vist resultatet (dage pr. måned) - så jeg kan arbejde videre med det ?
Avatar billede sjap Praktikant
17. september 2002 - 15:31 #8
I et felt på en formular skriver du blot

=DaysInMonth([Start];[Slut];[Måned])

Start, SLut og Måned er så andre felter på formularen.
Avatar billede pecl Nybegynder
18. september 2002 - 08:42 #9
Superjap> Jeg får det ikke til at virke. Kan du sende et eksempel til mig ? Min mail er per.clemensen@hvalsoe.dk
Avatar billede sjap Praktikant
18. september 2002 - 19:43 #10
Den er på vej.
Avatar billede pecl Nybegynder
19. september 2002 - 08:52 #11
Superjap> Tak for hjælpen - det virker fint.
Du får de 30 point.
Avatar billede sjap Praktikant
19. september 2002 - 08:55 #12
Tak for det.
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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.

Du kan også logge ind via nedenstående tjenester