Beregning af tidsforskel i timer:minutter:sekunder

Format(Tid, "hh:mm:ss")

Dim date1 As Date
Dim date2 As Date
Dim datedifferens As String
Dim i As Long

date1 = Now
For i = 0 To 100000
DoEvents
Next i
date2 = Now


datedifferens = Format$(DateDiff("h", date1, date2), "00") + ":" + Format$(DateDiff("m", date1, date2), "00") + ":" + Format$(DateDiff("s", date1, date2), "00")

MsgBox datedifferens


mvh.

Christian

Dim t1 As Date, t2 As Date

t1 = #11:00:00 AM#
t2 = Time

Msgbox Format(t2 - t1, "hh:nn:ss")

Pas på ikke at putte nogle datoer ind i variablerne t1 og t2, ellers går beregningen helt tilbage til 1/1/1900

Niels

svar

Ja eller

Dim Date1 as Date, Date2 as Date

Date1 = Now

'Et stykke tid senere
Date2 = Now

MsgBox "Forskel = " & Format(Date2 - Date1, "hh:mm:ss")

picard -> datediff ("s",date1,date2) angiver total sek. mellem de to tidspunkter.

"m" er måned "n" er min ;o)

nih.. det virker helt fint... takker..