Private Type Zeit
    Jahre As Long
    Monate As Long
    Tage As Long
    Stunden As Long
    Minuten As Long
    Sekunden As Long
End Type
 
 
Private Sub Form_Load()
    txtZeit.Text = "19.04.2004 12:00:00"
End Sub
 
Private Function GetZeit(vonZeit As Date, bisZeit As Date) As Zeit
    Dim t As Long
    With GetZeit
        t = DateDiff("s", bisZeit, vonZeit)
        t = t - (Fix(t / 60) * 60)
        .Sekunden = t
 
        vonZeit = DateAdd("s", -t, vonZeit)
        t = DateDiff("n", bisZeit, vonZeit)
        t = t - (Fix(t / 60) * 60)
        .Minuten = t
 
        vonZeit = DateAdd("n", -t, vonZeit)
        t = DateDiff("h", bisZeit, vonZeit)
        t = t - (Fix(t / 24) * 24)
        .Stunden = t
 
        vonZeit = DateAdd("h", -t, vonZeit)
        t = DateDiff("d", bisZeit, vonZeit)
        t = t - (Fix(t / 30) * 30) '***** Angleichen auf Monate? *****
        .Tage = t
 
        vonZeit = DateAdd("d", -t, vonZeit)
        t = DateDiff("m", bisZeit, vonZeit)
        t = t - (Fix(t / 12) * 12)
        .Monate = t
 
        vonZeit = DateAdd("m", -t, vonZeit)
        t = DateDiff("yyyy", bisZeit, vonZeit)
        .Jahre = t
 
    End With
End Function
 
Private Sub Timer1_Timer()
    Dim Ergebnis As Zeit
    If Not IsDate(txtZeit.Text) Then Exit Sub
    Ergebnis = GetZeit(txtZeit.Text, Now)
    With Ergebnis
        Me.Caption = Now & " - " & .Jahre & "." & .Monate & "." & .Tage & " " & _
          .Stunden & ":" & .Minuten & ":" & .Sekunden
    End With
End Sub