Office: (Office 2010) Zeiten addieren über 24-Stunden-Begrenzung

LotharP · 3. September 2011

Hallo zusammen,
ich bitte um Hilfestellung und weiß, dass dieses Thema nicht neu ist. Punkt ist allerdings, dass ich mich an den hier gefundenen Lösungen/Beiträgen schon versucht habe - ohne für mich zum Ziel zu kommen.
Ich habe mir eine Datenbank gebastelt für meine CDs und LPs (ja, sowas habe ich auch noch ...). Dazu gehören selbstredend auch Berichte, z.B. für alle CDs/LPs sowie für CDs/LPs einzelner Interpreten. Hier gibt es noch einen Knackpunkt, die Gesamtsumme der Zeiten ("=Summe([alb_time])). Es wird niemanden überraschen: Bei Summen unter 24 Stunden ist das kein problem - darüber hinaus aber. Hinzu kommt noch, dass ich bei allen CDs/LPs locker über 99 Stunden hinauskomme, also die Zweistelligkeit (hh) mir nicht reicht, hhh oder vielleicht sogar hhhh wäre erforderlich.
Frage an das Forum:
Geht so etwas in Access überhaupt (und wenn ja, wie?) - oder muss ich auf die Gesamtaddition in den Berichten verzichten?
Danke schon mal vorab.

:)

FW · 5. September 2011

... Du könntest Dir selbst eine solche Funktion basteln: Code:

Public Function Date2Time(ByVal datVar As Date) As String
Date2Time = Int(datVar) * 24 + Hour(datVar) & Format$(datVar, ":nn:ss")
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Date2Time(TimeSerial(23,59,59)+TimeSerial(1,0,0)) ergibt z.B. 24:59:59...

Thomas Braun · 5. September 2011

Wenn die Laufzeit in Sekunden vorliegt, kannst du sie mit folgender Funktion im gewünschten Format anzeigen lassen:

Code:

Public Function fct_FormatMMSS(ByVal lngSekunden As Long) As String

Dim lngMinuten As Long
Dim strReturn As String
Dim blnNegativ As Long

' Vorzeichen beachten
blnNegativ = (lngSekunden < 0)
lngSekunden = Abs(lngSekunden)

' Sekunden
strReturn = Format([lngSekunden] Mod 60, "00")
' Minuten
lngMinuten = lngSekunden \ 60
strReturn = Format([lngMinuten], "00") & ":" & strReturn

If blnNegativ Then strReturn = "-" & strReturn

fct_FormatMMSS = strReturn

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... dass der Feldtyp 'Datum/Uhrzeit' für eine Zeitspanne ungeeignet ist, hast du sicher bemerkt...

Köbi · 5. September 2011

Hallo

Hier findest Du eine Lösung:
donkarls Access-Seiten

In meiner Audiothek-DB verwende ich folgenden Code. Er ist nicht von mir, deshalb funktioniert er*tongue.gif*

Code:

Function GetTimeCardTotal()
' Die Funktion GetTimeCardTotal() summiert ein Feld mit Zeitwerten in einer
' Tabelle und zeigt die Gesamtzeit in Stunden, Minuten und Sekunden an.
' Syntax: GetTimeCardTotal()

Dim db As Database, rs As Recordset
Dim totalhours As Long, totalminutes As Long, totalseconds As Long
Dim days As Long, hours As Long, Minutes As Long, Seconds As Long
Dim interval As Variant, j As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Stat_Spielzeit") 'Dateiname einsetzen
interval = #12:00:00 AM#
While Not rs.EOF
interval = interval + rs![Spielzeit] ' Feldname einsetzen
rs.MoveNext
Wend
totalhours = Int(CSng(interval * 24))
totalminutes = Int(CSng(interval * 1440))
totalseconds = Int(CSng(interval * 86400))
hours = totalhours Mod 24
Minutes = totalminutes Mod 60
Seconds = totalseconds Mod 60
GetTimeCardTotal = totalhours & " Std. " & Minutes & " Min. " & Seconds & " Sek."

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LotharP · 5. September 2011

Jetzt habe ich es auch hingekriegt.
Danke - auch für die schnelle Hilfe.

Office: (Office 2010) Zeiten addieren über 24-Stunden-Begrenzung

Zeiten addieren über 24-Stunden-Begrenzung

Zeiten addieren über 24-Stunden-Begrenzung

Zeiten addieren über 24-Stunden-Begrenzung

Zeiten addieren über 24-Stunden-Begrenzung - Similar Threads - Zeiten addieren Stunden

Stunden & Minuten zusammenrechnen

Datum/Zeit-Format in einer Spalte mit 6 Stunden addieren

Addieren oder Subtrahieren von Zeiten

Addieren von Zeiten

Zeitspannen miteinander addieren (Bedingungen)

Verbrauchszähler

negative Zeiten addieren