[VB] Abstand zwischen zwei Zeitpunkten?

[Schattenkanzler]

Wie sieht's aus?

Ich habe zwei Zeitpunkte (Now) und einen vom User definierbaren.
Ich hätte gerne den genauen Abstand zwischen den beiden Zeitpunkten in folgendem Format:

Stunden:Minuten:Sekunden

Das Problem an der Geschichte ist nur, dass es auch variable Zeiten sind...sonst wär's easy..


MFG - Schattenkanzler

 

[Toaster]

Hi,

hier mal zwei Beispiele:

Dim dtDate1 As Date, dtDate2 As Date, lngSecs As Long, lngHours As Long, lngMins As Long

dtDate1 = "16.01.2003 04:23:27"
dtDate2 = Now
' Bsp 1
----------------------------------------------------------------
lngSecs = DateDiff("s", dtDate1, dtDate2)
lngHours = Round(lngSecs / 3600, 0)
lngSecs = lngSecs - (lngHours * 3600)
lngMins = Round(lngSecs / 60, 0)
lngSecs = lngSecs - (lngMins * 60)
MsgBox lngHours & " " & lngMins & " " & lngSecs
----------------------------------------------------------------

' Bsp 2
----------------------------------------------------------------
Dim dblDate1 As Double
Dim dblDate2 As Double
Dim dblDateDiff As Double
dblDate1 = CDbl(dtDate1)
dblDate2 = CDbl(dtDate2)
Dim lngDays As Long
dblDateDiff = Abs(dblDate2 - dblDate1)
lngDays = Fix(dblDateDiff)
lngHours = CLng(Format(dblDateDiff, "HH"))
lngMins = CLng(Format(dblDateDiff, "NN"))
lngSecs = CLng(Format(dblDateDiff, "SS"))
lngHours = lngDays * 24 + lngHours

MsgBox CStr(lngHours) & "-" & CStr(lngMins) & "-" & CStr(lngSecs)
----------------------------------------------------------------

Gruß

Toaster

 

[Schattenkanzler]

Danke man!

Das isses! Danke!

Hast was gut bei mir...

Funktioniert genau so, wie ich es haben will!
Danke!!!!!

 

[Toaster]

Hi,

dafür sind wir doch da

Sorry das es erst mit Verzögerung kam, hatte aber viel zu tun.

Gruß

Toaster