Office: (Office 2003) Datediff im Format Tag, Stunden, Minuten, Sekunden

boonsi1980 · 29. April 2010

Hallo,

per Datediff möchte ich mir die Differenz von 2 Daten ausgeben lassen,

Also z.b.

Datum1 = 01.05.2010 22:36:15
Datum2 = 02.05.2010 22:36:15

Aber in diesem Format:
1 Tag, 0 Stunden, 0 Minuten, 0 Sekunden

Geht das auch automatisch, oder muss ich mir das selber zurechtbasteln,
indem ich die Sekunden nehme, und dann ausrechne, wiviele Tage das dies sind, dann diese sekunden abziehen, dann wieviele Stunden.....

:)

JPA · 1. Mai 2010

Für Anzahl Tage:
DatDiff("D";Datum1 ;Datum1 2)

boonsi1980 · 1. Mai 2010

Das funktioniert aber nur, wenns genau 1 tag ist.

Angenommen ich habe
? DateDiff("d", #1/1/2010 21:00:37#, #1/7/2010 08:06:20#)
6

Ich möchte aber folgendes haben:
5 Tage, 11 Stunden, 5 Minuten, 43 Sekunden

Jetzt bemerke ich grad, das Datediff keine korrekte Werte ausgiebt.
Aber vorher beim googlen hab ich im vorbeifliegen sowas gesehen.
Werde mich dem mal widmen

boonsi1980 · 1. Mai 2010

Im Moment sieht mein code so aus:
(Langesekunden hab ich zu debug zwecken gemacht)
Resultat ist richtig... nur, ich wollte noch monate und jahre dazu nehmen.
Bekomme aber immer "überlauf" wenn ich das entsprechend erweitere.
Ich nehme an, das die Zahlen zu gross zum rechnen werden.

Hat jemand sonst noch eine Idee?

Code:

Dim ddd As Long
Dim Sek As Long
Dim Min As Long
Dim Std As Long
Dim Tag As Long
Dim mnt As Long

ddd = DateDiff("s", [RTS_Date], Now())

mnt = Int(ddd / 2592000)
Tag = Int(ddd / 86400)
Std = Int((ddd / 3600) - Tag * 24)
Min = Int((ddd / 60) - Tag * 24 * 60 - Std * 60)
Sek = Int((ddd) - (Tag * 24 * 60 * 60) - (Std * 60 * 60) - Min * 60)

MsgBox ([ddd] & " Langesekunden" & vbNewLine & [Tag] & " Tag(e)" & vbNewLine & [Std] & " Stunden" & vbNewLine & [Min] & " Minuten" & vbNewLine & [Sek] & " Sekunden")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65 · 1. Mai 2010

Folgende Sub sollte das gewünschte erreichen:
Code:

Sub ZeitDif() 'ByVal Datum1 As Date, ByVal Datum2 As Date)
Dim Datum1 As Date
Datum1 = "27.02.1999 01:58:05"
Dim Datum2 As Date
Datum2 = "03.03.2000 01:59:10"

Dim Jahre As Integer
Dim Monate As Integer
Dim Tage As Integer
Dim Stunden As Integer
Dim Minuten As Integer
Dim Sekunden As Integer
Dim Ergebnis As String

Jahre = DateDiff("yyyy", Datum1, Datum2)
If DateSerial(2000, Month(Datum1), Day(Datum1)) > _
DateSerial(2000, Month(Datum2), Day(Datum2)) Then
Jahre = Jahre - 1
End If
Datum1 = DateAdd("yyyy", Jahre, Datum1)

Monate = DateDiff("m", Datum1, Datum2)
If Day(Datum1) > Day(Datum2) Then Monate = Monate - 1
Datum1 = DateAdd("m", Monate, Datum1)

Tage = DateDiff("d", Datum1, Datum2)
If Hour(Datum1) > Hour(Datum2) Then Tage = Tage - 1
Datum1 = DateAdd("d", Tage, Datum1)

Stunden = DateDiff("h", Datum1, Datum2)
If Minute(Datum1) > Minute(Datum2) Then Stunden = Stunden - 1
Datum1 = DateAdd("h", Stunden, Datum1)

Minuten = DateDiff("n", Datum1, Datum2)
If Second(Datum1) > Second(Datum2) Then Minuten = Minuten - 1
Datum1 = DateAdd("n", Minuten, Datum1)

Sekunden = DateDiff("s", Datum1, Datum2)

Ergebnis = Jahre & " Jahr(e)" & vbCrLf & _
Monate & " Monat(e)" & vbCrLf & _
Tage & " Tag(e)" & vbCrLf & _
Stunden & " Stunde(n)" & vbCrLf & _
Minuten & " Minute(n)" & vbCrLf & _
Sekunden & " Sekunde(n)"
Debug.Print Ergebnis
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und sogar Schaltjahrresistent sein

boonsi1980 · 1. Mai 2010

Hallo Marsu,
danke vielmals für die Hilfe.
Hab soeben wieder eine neue Funktion DateAdd kennengelernt *Smilie

ebs17 · 1. Mai 2010

Ergänzung: Mit Date-Werten kann man direkt rechnen ...
Code:

' Direktbereich
?#1/7/2010 08:06:20# - #1/1/2010 21:00:37#
5,46230324073986
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Ergebnis (5 Tage und etwas dazu) kann man im Anschluss wie gewünscht formatieren. Da es in Access kein Standardformat gibt, das dem oben gewünschten entspricht, braucht man eine eigendefinierte Formatierung, die dann aber zwangsläufig einen String erzeugt (während ein Datum und eine Datumsdifferenz Zahlen sind).
Abgekürzt und damit abgewandelt dann z.B. so:
Code:

Function xy(z As Date) As String
xy = CInt(Fix(z)) & " Tage, " & Format(z - Fix(z), "hh:nn:ss")
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lanz Rudolf · 2. Mai 2010

Hallo
habe auch einmal zwei Routinen gemach zu diesem zweck s. Anhang
Funktion HHG24 und FncRechneDiff

Lanz Rudolf · 2. Mai 2010

Hall
in meinem anhang in der Function HHG24
ist noche ein Fehler
in der Zeile:
VarHH Fix(DblDiff * 24)
fehlt das "="
so währe besser
VarHH = Fix(DblDiff * 24)
im anhang eine Muster MDB

Tests mit "29.06.2000 16:00:00", "27.07.2000 16:55:15"
call TestHHG24
672:55:15
call TestRechneDiff
1-->28 Tage, 0 Stunden, 55 Minuten, 15 Sekunden
2-->00672:55:15
3-->672:55:15
4-->00672.92

Office: (Office 2003) Datediff im Format Tag, Stunden, Minuten, Sekunden

Datediff im Format Tag, Stunden, Minuten, Sekunden

Datediff im Format Tag, Stunden, Minuten, Sekunden

Datediff im Format Tag, Stunden, Minuten, Sekunden

Datediff im Format Tag, Stunden, Minuten, Sekunden

Datediff im Format Tag, Stunden, Minuten, Sekunden - Similar Threads - Datediff Format Tag

Format(vorlage) für Zeilennummern ändern

Formatvorlage

Formatierungsprobleme mit mehreren Seiten im Format Gegenüberliegende Seiten

Große Textdatei - Formate entschlacken

Datediff ist aristokratisch widerspenstig

DateDiff-Funktion

datediff