Option Explicit
Dim Datum1, Datum2
 
Private Sub Command1_Click()
Dim Sekunden As Long
Datum1 = "01.01.2003 00:00:00"
Datum2 = Format$(Now, "dd.mm.yyyy hh:nn:ss")
Sekunden = DateDiff("s", Datum1, Datum2)
Label1.Caption = Sekunden
End Sub

cu

ari