Forskel imellem to klokkeslæt..

Diff = DateDiff("nn", Time1, Time2)

little error there :o)
Diff = DateDiff("n", Time1, Time2) gives inteval in minutes

I got two labels containing Time1 & Time2.
Can I use Diff = DateDiff("hns", Label1.Caption, Label2.Caption)  ?

>>>web

Msgbox "Interval = " & DateDiff("n", Start, End)

I wan't to indicate hours, minutes and seconds.
I intended it to be some kind of a countdown until the shutdown, reboot etc. using a timer to update the time remaining..

>>webie

( I got two labels containing Time1 & Time2. )
Er det tidsangevelse "hh:mm:ss" eller er det dato tid " DD-mm-yyyy hh:nn:ss"

Hvis det kun er timer inden for samme døgn, behøver du ikke en starttid, kun en sluttid.

et eksempel

Dim SlutTime As Date, RestTime As Date, NowTime As Date
NowTime = Format(Now(), "hh:nn:ss")
Label1.Caption = NowTime
SlutTime = Format(Label2.Caption, "hh:nn")
RestTime = SlutTime - NowTime
Label3.Caption = RestTime

her er en der virker over flere dage

Dim SlutTime As Date, RestTime As Date, NowTime As Date
NowTime = Format(Now(), "dd-mm-yyyy hh:nn:ss")
Label1.Caption = NowTime
SlutTime = Format(Label2.Caption, "dd-mm-yyyy hh:nn:ss")
RestTime = SlutTime - NowTime
a = Hour(RestTime) ' hele timer
b = Int(RestTime) * 24 ' omregner hele dage til timer
Label3.Caption = a + b & Format(RestTime, ":nn:ss")

kabbak, hvis du poster et SVAR, så får du lige nogle point! (Også tak til terry!)

>>web

et svar ;-))

tak for pointz ;-))