Beregn antal dage i hver måned

Resterende antal dage i en måned ud fra en given dato.

Private Sub Kommandoknap5_Click()
Dim D As Integer, M As Integer, Y As Integer
If IsNull(restmåned) Then
lastofmonth = Null
Else
D = Day(Indflytningsdato)
M = Month(Indflytningsdato)
Y = Year(Indflytningsdato)
lastofmonth = DateAdd("m", 1, DateSerial(Y, M, 1)) - 1
MsgBox DateDiff("d", Indflytningsdato, lastofmonth) + 1
End If
End Sub

Hej Mugs

Hvordan fungerer det i en krydstabulering ?

Du skal lige tilrette den og sende resultaterne ind i tabellen. Denne skulle fungere, idet den separerer asntal dage i felterne dennemåned og næstemåned, derefter smider den redterende antal overnatninger ind i feltet udflytning:

Private Sub Kommandoknap5_Click()
Dim D As Integer, M As Integer, Y As Integer
Dim næstemåned As Long, dennemåned As Long
If IsNull(restmåned) Then
lastofmonth = Null
Else
D = Day(restmåned)
M = Month(restmåned)
Y = Year(restmåned)
lastofmonth = DateAdd("m", 1, DateSerial(Y, M, 1)) - 1
dennemåned = DateDiff("d", restmåned, lastofmonth) + 1
End If
næstemåned = antal - dennemåned
udflytning = DateAdd("d", næstemåned, lastofmonth)
End Sub

Jeg kan sende dig db.

Det må du gerne :

Lasse.jensen snabelA Novasol.com

Sendt.

Hej Mugs

Tak for tilsendte, det er ikke lige det jeg efterspørger. Jeg kender indflytningsdato og antal dage på forhånd, men har behov for en beregning af antal dage i måneden/månederne hvis abtallet af dage strækker sig hen over månedsskifte/flere måneder ... det kan jeg ikke lige gennemskue

Fandt denne løsning :

unction 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

Lukker