'Komponente: Microsoft Windows Common Controls 2.6
Option Explicit
Dim btnSchlusszeit As CommandButton
Dim lblZeitIntervall As Label
Dim lblSchlusszeit As VB.Label
Dim WithEvents dtpSchlusszeit As MSComCtl2.DTPicker
Dim WithEvents timer As VB.timer
 
Private Sub Form_Load()
 
With Me
.Width = 3000: .Height = 3000: .BorderStyle = 3
.Caption = "Die Zeit läuft ab"
End With
 
Set dtpSchlusszeit = _
Me.Controls.Add("MSComCtl2.Dtpicker", "dtpSchlusszeit", Me)
With dtpSchlusszeit
.Top = 150: .Width = 2000: .Height = 400: .Visible = True
End With
 
Set lblSchlusszeit = _
Me.Controls.Add("VB.Label", "lblSchlussZeit", Me)
With lblSchlusszeit
.Top = 800: .Width = 2000: .Height = 400: .Visible = True
.BorderStyle = 1: .ToolTipText = "Schlussdatum"
End With
 
Set lblZeitIntervall = _
Me.Controls.Add("VB.Label", "lblZeitIntervall", Me)
With lblZeitIntervall
.Top = 1200: .Width = 2000: .Height = 1000: .Visible = True
.BorderStyle = 1: .ToolTipText = "Zeit bis zum Schluss"
End With
 
Set timer = Me.Controls.Add("VB.timer", "Timer", Me)
timer.Interval = 1000: timer.Enabled = False
 
End Sub
 
Private Sub dtpSchlusszeit_CloseUp()
 
lblSchlusszeit.Caption = "": lblZeitIntervall.Caption = ""
timer.Enabled = False
With dtpSchlusszeit
    Dim x As Date: x = CDate(.Value)
    Dim ddiff As Integer: ddiff = DateDiff("d", Now, x)
    'maximal 1 Jahr in der Zukunft
    If ddiff < 0 Then Exit Sub
    If ddiff > 366 Then Exit Sub
    lblSchlusszeit.Caption = .Value
End With
timer.Enabled = True
 
End Sub
 
Private Sub timer_Timer()
     Dim sec As Long: sec = DateDiff("s", Now, dtpSchlusszeit.Value)
     If sec < 0 Then
         lblZeitIntervall.Caption = "Zeitpunkt erreicht"
    Else
         Dim d, h, m As Long
         d = sec \ 86400: sec = sec - d * 86400
         h = sec \ 3600: sec = sec - h * 3600
         m = sec \ 60: sec = sec - m * 60
         lblZeitIntervall.Caption = "Tage: " & CStr(d) & _
         "  Stunden: " & CStr(h) & "  Minuten: " & CStr(m) & _
         "  Sekunden: " & CStr(sec)
    End If
End Sub