Function getDayRelative(ByVal dateTest As Date) As String
 
Select Case DateDiff("d", Now, dateTest)
  Case 0
    getDayRelative = "heute"
  Case -1
    getDayRelative = "gestern"
  Case -2
    getDayRelative = "vorgestern"    ' ... und so weiter
  Case Else
    getDayRelative= ""
End Select
 
End Function