Time

Mener du noget i stil med det her:

Option Explicit
Dim time1 As Date
Dim time2 As Date
Dim resutat As Date
Dim regn As Double

Private Sub Form_Load()

time1 = \"14:00:00\"
time2 = \"15:00:00\"

regn = DateDiff(\"s\", time1, time2)

resutat = DateAdd(\"s\", regn, resutat)

MsgBox resutat

End Sub

Det er lige præcis det jeg har brug for :-)