Tælle antallet af dage i en måned

The following example uses the DateSerial function together with the Year, Month, and Day functions to return the number of days in a month. You can pass either a date or a string to the DaysInMonth function.

Function DaysInMonth(dteInput As Date) As Integer
    Dim intDays As Integer

    \' Add one month, subtract dates to find difference.
    intDays = DateSerial(Year(dteInput), Month(dteInput) + 1, Day(dteInput)) _
        - DateSerial(Year(dteInput), Month(dteInput), Day(dteInput))
    DaysInMonth = intDays
    Debug.Print intDays
End Function

The following Sub procedure shows several different ways that you might call the DaysInMonth function.

Sub CallDaysInMonth()
    Dim intDays As Integer
    intDays = DaysInMonth(#4/1/96#)
    intDays = DaysInMonth(\"4-1-96\")
    intDays = DaysInMonth(\"April 1, 1996\")
End Sub

think it works!

Her er en anden løsning:

Function dagImnd(Adato As Date) As Integer

Dim dato As Date
\' sidste Dag i måneden:
dato = DateSerial(year(Adato), Month(Adato) + 1, 0)
dagImnd = day(dato)

End Function

Det viser sig at hvis man sætter dagparameteren til 0, returneres sidste dato i sidste Måned.

Sæt enten min eller Terry\'s function i et modul, og du kan kalde dem fra hele din database.

Niels

Hvordan går det fastwrite ???

Når du har kopieret funktionen ind i et modul kan du skrive sådan i et tekst felt:

    = 200/dagImnd(#01/01/01#)

    200 / 31  (Januar)

I en forespørgsel oprette et nyt felt:

  dage : dagImnd([datofelt])


Niels

Hej Terry og Nih. Det er lidt flovt men jeg har slet ikke haft tid til at tjekke det, men jeg er så sikker at I har tjek på tingene, at I får ligeligt point!

Jeg takker og bukker og ne.. øh - det er vist piger der nejer.

Mvh Fastwrite / Thomas

tak :o)