'Differenz der vergangenen Monate bestimmen - Beginn
'---------------------------------------------------         
      Dim differenzMonat As Single
      Dim DatumM As Date
 
      DatumM = "01.09.2006"   'dies ist das Ausgangsdatum
 
     'Berechnung der Differenz vom Ausgangsdatum zum derzeitigen Kalenderdatum.
      differenzMonat = DateDiff("m", Now, DatumM) * (-1)
 
      If differenzMonat = 1 Then
         MsgBox "Es ist  " & differenzMonat & "  Monat vergangen."
        Else
         MsgBox "Es sind  " & differenzMonat & "  Monate vergangen."
      End If
'-------------------------------------------------
'Differenz der vergangenen Monate bestimmen - Ende