Jag låter en rapport visa tid som man "arbetat" och summerar detta. Problemet jag har är att summeringen "går runt" efter att det överstigit 24 timmar. Har man exempelvis arbetat 25 timmar visas 01:00.

I excel så kan man skriva en anpassad formatering [t]:mm som går runt problemet. Det är som sagt i Excel så jag vill göra något liknande i Access. Något av er som stött på samma problem och har en lösning?

Min kund nöjde sig med att visa tiden som tal, dvs 30:30 timmar visas som 30,50 timmar. Det var dessutom det som kunden skrev in i löneprogrammet, så det var ju bra.

Frågan kvarstår förstås ändå för detta problem lär man ju dyka upp fler gånger..

Roade mig med att göra en lösning i VB6.
Borde även funka med VBA
Stökigare än man först tror
Addera tider oberoende av tid på dygnet, presentera med en decimal.
<code>
Option Explicit
Const D24 = 0.9999999 'decimala värdet för 23:59:59
Const INTDYGN = 24 ' 1 dygn

Private Sub Command1_Click()
Dim retTime As Single
'exempel på en som jobbar mellan 19:00 till 01:30
'Här simulerar jag att han jobbat så 5 dygn i rad
retTime = 5 *JobbTime("19:00", "01:30")
'lagra addera alla retTime för summering som decimaltal
MsgBox retTime
End Sub

Private Function JobbTime(ByVal startT As String, ByVal endT As String) As Single
Dim startTid As Single
Dim slutTid As Single
Dim totalTid As Single
Dim tim As Single
'exempel på en som jobbar mellan 19:00 till 01:30
startTid = CDate(startT)
slutTid = CDate(endT)
Select Case slutTid
Case Is > startTid
totalTid = (D24 - startTid) - (D24 - slutTid)
tim = totalTid * INTDYGN
JobbTime = CSng(Format$(tim, "#0.0")) 'returnera decimal tid

Case Is < startTid 'Midnatt har passerats
totalTid = D24 - startTid + slutTid
tim = totalTid * INTDYGN
JobbTime = CSng(Format$(tim, "#0.0")) 'returnera decimal tid
End Select
End Function
</code>

Kul! Då vet jag hur jag gör när jag behöver det ;o)

Tack för hjälpen!