Supportnet / Forum / Datenbanken
uhrzeit in access - 24h limit
Frage
Hi!
Habe für die Uni eine Fernsehsendungsanalyse gemacht. Ich habe das Programm in Kategorien eingeteilt und in Minuten aufgeschlüsselt, diese Daten in eine Access 2000-DB eingetragen. Wenn ich jetzt die Gesamtdauer pro Kategorie errechnen will (mittels ABfrage) und diese 24h übersteigt, zeigt Access mir nur zb 05.01.1900 23:58:12 statt zB 76:58:12. Ich habe als Uhrzeit-Format übrigens hh:nn:ss in der DB definiert. Hat jemand eine Idee? 1000 Dank!
Antwort 1 von Koebi
Grüezi
Mit folgender Funktion sollte das klappen:
'Wandelt ganze Zahlen in Std:min bzw. in min:sek um.
'Geeignet für Umrechnung von Wettkampfzeiten, welche nur ganzzahlig
'als Sekunden oder als Minuten erfasst wurden.
'Aufruf in Abfrage z.B.: Std_und_Min: Zeitformat([Zeit_ganzeZahl])
'Erstellt 2001 Bernhard Froschauer
Public Function Zeitformat(Minuten As Double) As String
Dim Workstd As Double
Dim Workmin As Integer
Dim STD As String
Dim MIN As String
Dim WS As Integer
Dim Minus As String
On Error GoTo Errh
If IsNull(Minuten) Then Zeitformat = "00:00"
If Minuten >= 0 Then
If Minuten > 59 Then
Workstd = Minuten / 60
Workstd = CInt(Workstd - 0.499)
Workmin = Minuten - (Workstd * 60)
Else
Workstd = 0
Workmin = Minuten
End If
If Workstd < 10 Then
STD = "0" & CStr(Workstd)
Else
STD = CStr(Workstd)
End If
If Workmin < 10 Then
MIN = "0" & CStr(Workmin)
Else
MIN = CStr(Workmin)
End If
Zeitformat = STD & ":" & MIN
Else
Minus = (Minuten * (-1))
If Minus > 59 Then
Workstd = Minus / 60
Workstd = CInt(Workstd - 0.499)
Workmin = Minus - (Workstd * 60)
Else
Workstd = 0
Workmin = Minus
End If
If Workstd < 10 Then
STD = "0" & CStr(Workstd)
Else
STD = CStr(Workstd)
End If
If Workmin < 10 Then
MIN = "0" & CStr(Workmin)
Else
MIN = CStr(Workmin)
End If
Zeitformat = "-" & STD & ":" & MIN
End If
Errexit:
Exit Function
Errh:
Zeitformat = "00:00"
GoTo Errexit
End Function
Gruss
Köbi
Mit folgender Funktion sollte das klappen:
'Wandelt ganze Zahlen in Std:min bzw. in min:sek um.
'Geeignet für Umrechnung von Wettkampfzeiten, welche nur ganzzahlig
'als Sekunden oder als Minuten erfasst wurden.
'Aufruf in Abfrage z.B.: Std_und_Min: Zeitformat([Zeit_ganzeZahl])
'Erstellt 2001 Bernhard Froschauer
Public Function Zeitformat(Minuten As Double) As String
Dim Workstd As Double
Dim Workmin As Integer
Dim STD As String
Dim MIN As String
Dim WS As Integer
Dim Minus As String
On Error GoTo Errh
If IsNull(Minuten) Then Zeitformat = "00:00"
If Minuten >= 0 Then
If Minuten > 59 Then
Workstd = Minuten / 60
Workstd = CInt(Workstd - 0.499)
Workmin = Minuten - (Workstd * 60)
Else
Workstd = 0
Workmin = Minuten
End If
If Workstd < 10 Then
STD = "0" & CStr(Workstd)
Else
STD = CStr(Workstd)
End If
If Workmin < 10 Then
MIN = "0" & CStr(Workmin)
Else
MIN = CStr(Workmin)
End If
Zeitformat = STD & ":" & MIN
Else
Minus = (Minuten * (-1))
If Minus > 59 Then
Workstd = Minus / 60
Workstd = CInt(Workstd - 0.499)
Workmin = Minus - (Workstd * 60)
Else
Workstd = 0
Workmin = Minus
End If
If Workstd < 10 Then
STD = "0" & CStr(Workstd)
Else
STD = CStr(Workstd)
End If
If Workmin < 10 Then
MIN = "0" & CStr(Workmin)
Else
MIN = CStr(Workmin)
End If
Zeitformat = "-" & STD & ":" & MIN
End If
Errexit:
Exit Function
Errh:
Zeitformat = "00:00"
GoTo Errexit
End Function
Gruss
Köbi
Antwort 2 von want2cu
hallo,
ich kenne mich zwar mit Access nicht aus, aber das Format sieht genau so aus wie in Excel.
Und in Excel kann man das Problem mit folgneder Formatierung lösen:
[hh]:mm:ss
Vielleicht kannst du dieses benutzerdefinierte Format auch in Access anwenden.
HTH+CU
Klaus
ich kenne mich zwar mit Access nicht aus, aber das Format sieht genau so aus wie in Excel.
Und in Excel kann man das Problem mit folgneder Formatierung lösen:
[hh]:mm:ss
Vielleicht kannst du dieses benutzerdefinierte Format auch in Access anwenden.
HTH+CU
Klaus