Hej !!

Jag önskar hjälp med följande:

(Jag skapar en Starttid och en Stopptid.)

Jag önskar en funktion som mäter tiden mellan Start & Stopp, och anger svaret i Timmar & Minuter.

Dessa tider kommer jag senare att lagra i en databas och när så önskar skall de ackumulerade tiderna adderas.

Tacksam för ett snabbt svar !!

P.S. Jag känner till DateDiff, men inte alla funktioner samt att addera till och få svaret formaterat.

Private Sub Command1_Click()

Dim starttid As Date
Dim sluttid As Date
Dim timmar As Integer
Dim minuter As Integer
Dim sekunder As Integer

starttid = "2000-12-10 22:15:15"
sluttid = Now

timmar = DateDiff("h", starttid, sluttid)
minuter = Format(sluttid - starttid, "nn")
sekunder = Format(sluttid - starttid, "ss")
End Sub

prova denna

Tack för hjälpen !!

Arne