Private Sub Form_Load()
   Dim j As Long, m As Long, t As Long, h As Long, mm As Long, s As Long
   Dim d As Date
   Dim z As String
 
   'Jahre und Monate ermitteln
   j = DateDiff("yyyy", "28.05.1957 10:12:00", Now)
   m = DateDiff("m", "28.05.1957 10:12:00", Now)
   If j > 0 Then m = m Mod (j * 12)
 
   'nun Tage ermitteln
   If j > 0 And m > 0 Then
      d = DateAdd("m", (j * 12) + m, "28.05.1957 10:12:00")
   ElseIf m > 0 Then
      d = DateAdd("m", m, "28.05.1957 10:12:00")
   End If
   t = DateDiff("d", DateSerial(Year(d), Month(d), 1), Now)
   d = DateSerial(Year(d), Month(d), 1)
   d = DateAdd("d", t, d)
 
   d = d & " " & "10:12:00"
 
   'nun Zeit ermitteln
   s = DateDiff("s", d, Now)
   If s < 0 Then s = DateDiff("s", DateSerial(Year(d), Month(d), Day(d)) & "" & _
     "00:00:00", Now)
   h = s \ 3600
   s = s Mod 3600
   mm = s \ 60
   s = s Mod 60
 
   'Timestamp y:m:d h:mm:s
   z = CStr(j) & ":" & CStr(m) & ":" & CStr(t) & _
       " " & CStr(h) & ":" & CStr(mm) & ":" & _
       CStr(s)
 
   MsgBox z
 
End Sub