'------------------------------------------------------------------
' Данная функция вычисляет время, прошедшее между двумя значениями,
' а затем форматирует результат четырьмя разными способами.
'
' Функция принимает аргументы интервалов в следующем виде:
'
'     #5/12/95 6:00:00AM# - #5/11/95 10:00:00PM#
'
'     
'
'     [Время окончания]-[Время начала]
'------------------------------------------------------------------

Function ElapsedTime (Interval)
  Dim x
  x = Int(CSng(Interval * 24 * 3600)) & " секунд"
  Debug.Print x
  x = Int(CSng(Interval * 24 * 60)) & ":" & Format(Interval, "ss") _
     & " минут:секунд"
  Debug.Print x
  x = Int(CSng(Interval * 24)) & ":" & Format(Interval, "nn:ss") _
     & " часов:минут:секунд"
  Debug.Print x
  x = Int(CSng(Interval)) & " дней " & Format(Interval, "hh") _
     & " часов " & Format(Interval, "nn") & " минут " & _
     Format(Interval, "ss") & " секунд"
  Debug.Print x

End Function