Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

VBA-DateDiff und Excel-DATEDIF

Gruppe

DATEDIF

Problem

Die VBA-DateDiff-Funktion entspricht in ihren Ergebnissen nicht der undokumentierten Excel-DATEDIF-Funktion. Wie kann ich die Letztere in VBA einbinden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub DateSpan()
   Dim iVBA As Integer
   iVBA = DateDiff( _
      interval:="yyyy", _
      date1:=Range("A1").Value, _
      date2:=Range("B1").Value)
   With Range("IV1")
      .Formula = "=DateDif(A1,B1,""y"")"
      MsgBox prompt:="Excel: " & .Value & " Jahre"
      .ClearContents
   End With
   MsgBox prompt:="VBA: " & iVBA & " Jahre"
End Sub