Zeit - Datums differenzen | HERBERS Excel Forum

Hallo VBA Profis,
guten morgen. Ich stehe vor einem für mich merkwürdigem Problem.
Mir hat schon Rainer des öfteren mal geholfen wenn es um zeit und Datumsberechnungen geht.
Jetzt komme ich nicht weiter.
Habe ein Makro das mri die Different zweiter zeitangaben berechnet und ich die möglichkeit habe eine bestimmte Anzahl von Stunden abzuziehen.
In meinem Aktuellen Beispiel habe ich zwei Datums.
Datum 1 = 17.05.2008 18:00:00
Datum 2= 15.05.2008 15:00:00
die Differenz beträgt 2 Tage und 3 Stunden
Me.lbl_differenz.Caption = Int(CDbl(von_Date) - CDbl(bis_date)) & "Tag " & Format(CDbl(von_Date) - CDbl(minus_stunden / 24) - CDbl(bis_date), "hh:mm:ss\h")
^^^^^^^^
Das bekomme ich mit dieser Codezeile oben angezeigt (Solange in der Variable (minus_stunden = 0) steht
gebe ich in die variable minus_stunden = 3 ein zeigt es mir auch noch ein richtiges Ergebiss von genau 2 Tagen und 0 Stunden an.
gebe ich aber in die Variable (minus_stunden = 4) ein dann kommt das komische.Ich bekomme angezeigt
2 Tage 23 Stunden.
Obwohl es dann ja nur noch 1 Tag 23 Stunden ist.
Es wird einfach nicht der Tag abgezogen.
Ich hoffe ich habe es einigermaßen verständlich erklärt.
Würde mich über Hilfe freuen.
Vielen Dank gruß Chris
'Hier noch die Werte die in den Variablen stehen.
von_Date = 17.05.2008 18:00:00
bis_date = 15.05.2008 15:00:00
minus_stunden = 4

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaZeitTest() Dim von_Date As String, bis_date As String, minus_stunden As String Dim datZeitdiff As Date, strVorzeichen As String Dim strZeitdiff1 As String Dim strZeitdiff2 As String 'Beispieldaten für Inhalte von Textboxen von_Date = "22.05.2008 16:00:00" bis_date = "23.05.2008 20:30:00" minus_stunden = "2,5" datZeitdiff = CDate(bis_date) - CDate(von_Date) - CDbl(minus_stunden) / 24 strVorzeichen = "" If datZeitdiff

Hallo Chris,
probier mal


Option Explicit
Sub DatDiff()
Dim von_Date As Date, bis_date As Date, minus_stunden As Double
Dim diff(0 To 4) As String
von_Date = CDate("18.05.2008 19:00:00")
bis_date = CDate("17.05.2008 18:00:00")
minus_stunden = 1
diff(0) = CDbl(von_Date) - CDbl(minus_stunden / 24) - CDbl(bis_date) & " Tag " _
& Format(CDbl(von_Date) - CDbl(minus_stunden / 24) - CDbl(bis_date), "hh:mm:ss\h")
diff(1) = Int(CDbl(von_Date) - CDbl(minus_stunden / 24) - CDbl(bis_date)) & " Tag " _
& Format(CDbl(von_Date) - CDbl(minus_stunden / 24) - CDbl(bis_date), "hh:mm:ss\h")
diff(2) = Int(von_Date - minus_stunden / 24 - bis_date) & " Tag " _
& Format(von_Date - minus_stunden / 24 - bis_date, "hh:mm:ss\h")
diff(3) = Int(CDbl(von_Date) - CDbl(minus_stunden / 24) - CDbl(bis_date) _
+ 0.000000001) & " Tag " _
& Format(CDbl(von_Date) - CDbl(minus_stunden / 24) - CDbl(bis_date), "hh:mm:ss\h")
diff(4) = Format(von_Date - minus_stunden / 24 - bis_date, "0") & " Tag " _
& Format(von_Date - minus_stunden / 24 - bis_date, "hh:mm:ss\h")
Stop
End Sub

Die Ergebnisse diff(0) bis diff(2) sind falsch (teilw. absichtlich), diff(3) und diff(4) stimmen.
Du kannst dir die Ergebnisse leicht ansehen, wenn der Stop erreicht ist.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Zeit - Datums differenzen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeit - Datums differenzen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread