Dim Datum1, Datum2
Dim Time1, Time2
Datum1 = "01. 01. 2003"
Datum2 = Format$(Now, "dd.mm.yyyy")
Time1 = "00:00:00"
Time2 = Format$(Now, "hh:nn:ss")
Dim Sekunden As Long
Dim SekundenGenau As Long
Sekunden = DateDiff("s", Datum1, Datum2)
SekundenGenau = DateDiff("s", Time1, Time2)
Text12.Text = SekundenGenau

-------------------------------------------------------------------------
Ein Pessimist ist ein Optimist mit Lebenserfahrung!!!
-------------------------------------------------------------------------