Præcis dato interval

Der findes en bedre custom function http://www.pacificdb.com.au/MVP/Code/Diff2Dates.htm

Hvad jeg husker er det integer som datadiff returnerer, ergo ingen kommatal fra den funktion.

Prøv med:

varighedsres = DateDiff(interval:="d", Date1:=startDato, Date2:=slutdato)/365*12

Nåh ja, så vil det jo være lettere blot at skrive:

varighedsres = (slutdato-startdato)/365*12

Her er den løsning som jeg selv er kommet frem til:

Private Sub Varighed_Enter()

Dim startDato As String
Dim slutdato As String
Dim TestDato As String

Dim varighedsres As Integer
Dim dag1 As Integer
Dim dag2 As Integer
Dim PartofMonth As Integer
Dim month As Integer
Dim month2 As Integer
Dim antaldage As Integer

Dim Skudår As Boolean

Dim måned

startDato = Forms!Opret_ophold!Fra_dato
slutdato = Forms!Opret_ophold!Til_dato

month = Val(Mid(startDato, 4, 2))
month2 = Val(Mid(slutdato, 4, 2))

måned = month 'Angivelse af måneden til første gennemkørelse af hver case
Select Case måned
Case 1, 3, 5, 7, 8, 10, 12 'Case hvor antalet af dage i en måned sættes til 31
    antaldage = 31
    dag1 = Val(Mid(startDato, 1, 2))
Case 4, 6, 9, 11 'Case hvor antalet af dage i en måned sættes til 30
    antaldage = 30
    dag1 = Val(Mid(startDato, 1, 2))
Case 2 'Case hvor der tages højde for skud år
    TestDato1 = "29-02-" & Val(Mid(startDato, 7, 4))
    If IsDate(TestDato1) Then
        Skudår = True
        antaldage = 29
        dag1 = Val(Mid(startDato, 1, 2))
    Else
        Skudår = False
        antaldage = 28
        dag1 = Val(Mid(startDato, 1, 2))
   
    End If
End Select

måned = month2 'Angivelse af månden til anden gennemkørelse af hver case for datoen slutdato
Select Case måned
Case 1, 3, 5, 7, 8, 10, 12 'Case hvor antalet af dage i en måned sættes til 31
    antaldage = 31
    dag2 = Val(Mid(slutdato, 1, 2))
Case 4, 6, 9, 11 'Case hvor antalet af dage i en måned sættes til 30
    antaldage = 30
    dag2 = Val(Mid(slutdato, 1, 2))
Case 2 'Case hvor der tages højde for skud år
    TestDato1 = "29-02-" & Val(Mid(slutdato, 7, 4))
    If IsDate(TestDato1) Then
        Skudår = True
        antaldage = 29
        dag2 = Val(Mid(slutdato, 1, 2))
    Else
        Skudår = False
        antaldage = 28
        dag2 = Val(Mid(slutdato, 1, 2))
    End If
End Select
        varighedsres = DateDiff(interval:="m", Date1:=CDate(startDato), Date2:=CDate(slutdato)) 'Udregning af antallet af måneder fra startdato til slutdatoen
        Forms!Opret_ophold!Varighed = varighedsres + (dag1 / antaldage) + (dag2 / antaldage) 'Angivelse af den samlede tid mellem de to måneder.
End Sub

Hvad syntes i om det jeg har fundet frem til?

Hvorfor gøre det nemt, hvis man kan gøre det svært ;0)

Så vidt jeg lige kan se, så regner den ikke helt korrekt. Resultatet bliver 1,07 hvis forskellen er præcist én måned.

Nu ved jeg jo ikke, hvad det er du skal bruge det til, men giver det overhovedet nogen mening at skelne mellem om det måneder med 28, 29, 30 eller 31 dage?

For det første er forskellen i virkeligheden ikke ret stor, når man betragter resultatet som måneder med en decimal.

For det andet er det vel ikke rimeligt at sige at f.eks. to personer har brugt lige lang tid på et stykke arbejde, hvis den ene har brugt en måned i februar og den anden en måned i marts. Så vidt jeg lige kan se, så skal det i begge tilfælde give 1,0 måned med din funktion. Men i virkeligheden har den ene brugt 10 procent mere tid på det.