In diesem Beispiel wird die DateDiff-Funktion verwendet, um die Anzahl von Tagen, die zwischen einem vorgegebenen Datum und dem heutigen Tag liegen, anzuzeigen.
Dim Datum1 As Date ' Variablen deklarieren.
Dim Msg
Datum1 = InputBox("Geben Sie ein Datum ein")
Msg = "Tage von heute an: " & DateDiff("d", Now, Datum1)
MsgBox Msg