[Excel, VBA] Monatsdifferenz zwischen zwei Daten

Gepostet am: Apr 07, 2013 12:28:23 PM

Man kann die Differenz in Monaten zwischen zwei Datumswerten mit Excel folgendermaßen berechnen:

aufrunden auf ganze Monate

=(JAHR(SDatum)-JAHR(FDatum))*12+MONAT(SDatum)-MONAT(FDatum)

abrunden auf ganze Monate

=WENN(TAG(SDatum)>=TAG(FDatum),0,-1)+(JAHR(SDatum)-JAHR(FDatum)) *12+MONAT(SDatum)-MONAT(FDatum)

Eine andere Möglichkeit wäre die Verwendung der VBA DateDiff Funktion

Monatsdifferenz

Public Function Monatsdifferenz(StartDatum As Date, Enddatum As Date) As DoubleIf StartDatum <= Enddatum Then     Monatsdifferenz = DateDiff("m", StartDatum, Enddatum)Else     Monatsdifferenz = CVErr(xlErrValue)End IfEnd Function

Das Ergebnis ist nur meist nicht genau genug - es wird teilweise auf, teilweise abgerundet. Darüberhinaus gibt es noch die Excel Worksheet Funktion DateDif, die nicht vorgeschlagen wird, wenn man Excel Formeln eingibt, da es sich um eine versteckte Worksheet Funktion handelt. (Zur Verwendung siehe The DateDif Worksheet Function)

Diese verhält sich jedoch anders als die oben verwendete DateDiff in VBA!!!!

Wenn man eine genaue Funktion für die Monatsdifferenz benötigt, kann man die oben beschriebenen Excel-Formeln verwenden, oder folgende VBA-Funktion

siehe auch:

• Berechnen der Anzahl der Monate zwischen zwei Datumsangaben in Excel

• Erklärung der DateDiff-Funktion

• The DateDif Worksheet Function