Private Sub Command1_Click()
Dim i#, start, ENDE
Dim sDate, eDate
Dim nHour&, nMin&, nSec&, nDauer, ntage&
Dim mHour$, mMin$, mSec$, mTage
Dim Ziel
Ziel = Text1.Text & " " & Text2.Text
 
Break = False
sDate = Now
eDate = CDate(Ziel) 'hier dein Enddatum einsetzen
start = Timer
 
i = DateDiff("s", sDate, eDate)
Do While Timer < start + i And Break = False
 
nDauer = DateDiff("s", Now, eDate)
nHour = Fix(nDauer / 3600)
mHour = Format(CStr(nHour), "00")
nMin = Fix((nDauer Mod 3600) / 60)
mMin = Format(CStr(nMin), "00")
nSec = nDauer - ((nHour * 3600) + (nMin * 60))
mSec = Format(Str(nSec), "00")
If nHour > 23 Then
ntage = Fix(nHour / 24)
nHour = nHour - (ntage * 24)
mTage = Format(CStr(ntage), "00") & ". "
mHour = Format(CStr(nHour), "00")
End If
Label1.Caption = mTage & mHour & ":" & mMin & ":" & mSec
 
DoEvents
 
Loop
ENDE = Timer
 
End Sub