Access - Berechnung von Zeitdifferenzen mit VBA?

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

kann mir bitte jemand bei folgendem Problem weiterhelfen? Ich möchte in einer VBA-Prozedur die Zeitdifferenz zwischen zwei Datumswerten (inkl. Uhrzeut) ermitteln. Beispiel:

Datum_1 = „14.07.2004 13:00:00“
Datum_2 = „15.07.2004 14:45:22“
Ergebnis = „25:45:22“ Stunden

MIt der Funktion DateDiff kann ich zwar die Zeitdifferenz z.B. in Sekunden, Minuten oder Stunden ermitteln, aber wie kann ich die Zeitdifferenz direkt in dem Format „hh:mm:ss“ erhalten (ohne umständliche Umrechnung von Sekunden in Minuten und Stunden)?

Gibt es eigentlich in der „Access2002 Hilfe“ eine Übersicht über die VBA-Funktionen? Wenn ja, wie finde ich diese Hilfe-Seite in der Access-Hilfe?

Vielen Dank für die Tipps!
Jack

#2

Hallo.

MIt der Funktion DateDiff kann ich zwar die Zeitdifferenz z.B.
in Sekunden, Minuten oder Stunden ermitteln, aber wie kann ich
die Zeitdifferenz direkt in dem Format „hh:mm:ss“ erhalten
(ohne umständliche Umrechnung von Sekunden in Minuten und
Stunden)?

Das ist extrem kompliziert. Zieh die beiden Felder voneinander ab : [Feld1]-[Feld2], dann bekommst Du eine ganz normale Zahl. Zum Bleistift : [Feld1]=#15.07.04 12:00#;[Feld2]=#14.07.04 06:00# ergibt [Feld1]-[Feld2]=1,25. Ein und ein viertel Tag, stimmt’s?

Format$(1,25;„tt.hh. nn.ss“) sollte dann die Zeichenkette „01.06.00.00“ liefern … heißt 1 Tag, 6 Stunden, 0 Minuten, 0 Sekunden.

Gruß kw

#3

Nicht ganz?
Hallo, Jack!

Format$(1,25;„tt.hh. nn.ss“) sollte dann die
Zeichenkette „01.06.00.00“ liefern … heißt 1 Tag, 6 Stunden,
0 Minuten, 0 Sekunden.

Ganz so einfach wolltest Du es ja, glaube ich, nicht haben, oder? Es sollten bei mehr als einem Tag dennoch die Stunden dargestellt werden analog zum Excel-Zellenformat „[h]:mm:ss“, das bei besagter Differenz 1,25 30:00:00 liefert.

Das bekämst Du hin mit

clng(24\*1.26) &":"& format$(1.26,"nn:ss")

, wobei ich jetzt mal testweise 1,26, also gerade eben mehr als 30 Stunden anzeigen lasse:

?clng(24\*1.26) &":"& format$(1.26,"nn:ss")
30:14:24

Gruß, Manfred

#4

Hallo Manfred,

danke für Deine Hilfe, genauso wollte ich das Ergebnis bekommen. Danke.

Gruß
Jack