VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-DateDiff und Excel-DATEDIF

Gruppe

Funktion

Bereich

DATEDIF

Thema

VBA-DateDiff und Excel-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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und DATEDIF