Dim sDatum As String
 
  sDatum = "22.08.02 12:30"
 
  Dim nSecs As Long
  Dim nMins As Long
  Dim nHours As Long
  Dim nDays As Long
  Dim nMonths As Long
 
  nSecs = DateDiff("s", Now, CDate(sDatum))
  nMins = DateDiff("n", Now, CDate(sDatum))
  nHours = DateDiff("h", Now, CDate(sDatum))
  nDays = DateDiff("d", Now, CDate(sDatum))
  nMonths = DateDiff("m", Now, CDate(sDatum))