Diference mellem måneder

Hej.

Så må du tage differencen i dage og hvis den er over 31 kalde den for 2.

Er det kun hele måneder der er interessant, kan du bruge format(dato,"mm") på begge og tage differencen.  Ved årsskifter må du så lave lidt beregninger.

/jørn

Month(FirstDate) - month(SecondDate)

noget a la dette, men giver fejl veed samme måned

If (DateDiff("M", dato1, dato2, vbMonday, vbFirstFourDays)) / Int((DateDiff("M", dato1, dato2, vbMonday, vbFirstFourDays))) <> 0 Then
A = (DateDiff("M", dato1, dato2, vbMonday, vbFirstFourDays)) + 1
Else
  A = (DateDiff("M", dato1, dato2, vbMonday, vbFirstFourDays))
End If

tempdate = DateSerial(Year(date2), Month(date2), 1)
MsgBox DateDiff("m", date1, tempdate) + IIf(Day(date2) > Day(date1), 1, 0)

kabbak>> Jeg brugte din løsning og tilpassede den. Det fungerer bare. Læg lige et svar så får du dine point :-)

et svar ;-))