Dim lDifference As Long
Dim iDays As Integer, iHours As Integer, iMinutes As Integer
Dim iSeconds As Integer
lDifference = DateDiff("s", Now, #1/1/2006#)
iDays = lDifference \ (24 * 3600&)
lDifference = lDifference - iDays * 24 * 3600&
iHours = lDifference \ 3600
lDifference = lDifference - iHours * 3600&
iMinutes = lDifference \ 60
lDifference = lDifference - iMinutes * 60
iSeconds = lDifference
Label1.Caption = _
  iDays & " days " & _
  iHours & " hours " & _
  iMinutes & " minutes " & _
  iSeconds & " seconds "

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.