Intervaller timer, hvordan findes nat overarbejdet

Prøv med dette:
Celle B2: 16:00, C2: 04:00 (det skal skrives på denne måde, med kolon og nuller). Celle D2: = -C2+B2 (formatter cellen (CTRL + 1) til tt:mm).
Celle C3: 01:00 (pause). Celle D3: =D2-C3 (formatter til Standard, skulle nu gerne vise 0,46 (11/24))
Celle B4: 25 Celle D4: =(B4*24)*$D$3
Celle: B5: 120 Celle D5: Kopier formlen fra D4
Celle D6: =sum(D4:D5)
Så skulle der gerne står 1395,00 (som regnestykket giver, §;-))

ÆVL; 1595,00 §:-((

Hej, tak for help men det duer ikke. Det skal beregne nat tid fra
kl.19 indtil kl. 6 og resultat blive 1545 kr. og ikke 1595 kr.
Start/slut tid skal/kan også blive ex: start kl.01 slut kl.10 hvor  arbejdestid er 9 t -pause og nat timer interval er 5 t , og det kan
jeg ikke med din formel.

Tak for hjælp

Jeg kan godt løse den sidste del af dit problem, men det bliver først i morgen. Håber, at det er OK. §;-)

hej x-lars
tusinde tak, jeg glader mig.§:-)

Ked af det, har regnet frem og tilbage, men kan ikke løse det. Men der er nogen her på Eksperten, der kan! Håber, at du har bedre held med dem.

Problemet er finde en formel der holder styr på vagter på almindelige arbejdstider - og det forekommer vel også?!? Det, som jeg har kunnet finde kunne sagtens styre natarbejdet, men går helt amok, hvis man arbejder 8-16, :-\

Hej x-lars, tusinde tak fordi du prøvede men måske kan hjælp mig.
Har fundet 2 makroer som skulle virker men
n1: kan få at virker kun mellem kl.0 og 6 og n2 når jeg check med
debug skrive *fejl i den sidste ligne??
Så hvis en ekspert kun hjælp...... jeg give 200 points. MANGE TAK
N1
Function TimeInterval(StartTime As Double, EndTime As Double, _
    LowerLimit As Double, UpperLimit As Double) As Double
' returns EndTime-StartTime limited by LowerLimit and UpperLimit
    TimeInterval = 0
    If StartTime < EndTime Then Exit Function
    If StartTime < UpperLimit Then Exit Function
    If EndTime > LowerLimit Then Exit Function
    If StartTime > LowerLimit Then StartTime = LowerLimit
    If EndTime < UpperLimit Then EndTime = UpperLimit
    TimeInterval = EndTime - StartTime
End Function


Eksemplene nedenfor bygger på at man har et starttidspunkt i celle A1 og et sluttidspunkt i celle B1.
=TimeInterval(A1;B1;0;8/24) returnerer antall timer mellom 00:00 og 08:00 (0 = 00:00)
=TimeInterval(A1;B1;8/24;16/24) returnerer antall timer mellom 08:00 og 16:00
=TimeInterval(A1;B1;16/24;1) returnerer antall timer mellom 16:00 og 24:00 (1 = 24:00

n2
Sub Arbejdstid()
  Dim colTidspunkt As New Collection
  Dim t As Double
  Dim mødetid As Double
  Dim fyraften As Double
  Dim tillægstid As Double
  Dim i As Integer
  Dim iMødetid As Integer
  Dim iFyraften As Integer
 
  Ark1.Rows(1).NumberFormat = "hh:mm"

  t = 1 / 3#
  colTidspunkt.Add t, "T1"
 
  t = 3 / 4#
  colTidspunkt.Add t, "T2"
 
  t = 4 / 3#
  colTidspunkt.Add t, "T3"
 
  t = 7 / 4#
  colTidspunkt.Add t, "T4"
 
  t = 2#
  colTidspunkt.Add t, "T5"

  mødetid = Ark1.Cells(1, "A").Value
  fyraften = Ark1.Cells(1, "B").Value

  If mødetid > fyraften Then fyraften = fyraften + 1
 
  Ark1.Cells(1, "C").Value = fyraften - mødetid
 
  i = 1
  Do While mødetid > colTidspunkt.Item(i)
      i = i + 1
  Loop
  iMødetid = i
  colTidspunkt.Add mødetid, "mødetid", i
 
  Do While fyraften > colTidspunkt.Item(i)
      i = i + 1
  Loop
  iFyraften = i
  colTidspunkt.Add fyraften, "fyraften", i
 
  tillægstid = 0#
  For i = iMødetid To iFyraften - 1
    If i / 2 - i \ 2 Then
      tillægstid = tillægstid + colTidspunkt.Item(i + 1) - colTidspunkt.Item(i)
    End If Next i
 
  Ark1.Cells(1, "D").Value = tillægstid
 
  Set colTidspunkt = Nothing
End Sub