VBA til tidsregistrering

Du er nok nødt til at være mere præcis i din beskrivelse, eller er det alle de mulige kombinationer af arbejdstider, du har beskrevet her? En anden ting, hvis dato er 1-1-20,  check in 13:00 og ckeck ud 18:30, hv8rdan kan man så se, om det er samme dag eller dagen efter?

Start dagen starter samtidig med B2, så B2 og C2 følges af. Så er det en lørdag d. 11/1 så vil det så ledes ud:

B2: 11-01-20
C2: 22:30
D2: 05:30

Så vil man altid vide, at tiden (C2) starter sammen med datoen (B2). Slut tiden (D2), kan både være samme dag men også efterfølgende dag.

Håber det gav lidt mere mening.

Hvis det skal kunne laves, skal alle mulige kombinationer af møde og gåhjem tider vlre kendt, og det samme skal de præcise perioder, der udløser tillæg.

Det bliver de også via C2 og D2, der er møde og gå hjem tider. Tillæg af timer, bliver lagt oven i den samme tidsperiode.

Så hvis du har søndag til mandag fra 22:30 - 05:25 giver 5:30 i tillæg oven i den nuværende tid i mellem C2 og D2.

Xet er jeg med på, menhvis det skal kunne laves med VBA, skal alle de perioder, der kan udløse tillæg være kodet ind.

Jeg er ikke sikker på, at jeg forstår budskabet Jan. For jeg skal blot finde antal timer og det er i mellem lørdag klokken 14 til mandag klokken 04:00.

Beklager, hvis jeg ikke er tydelig nok i hvad jeg søger.

B2=11-01-2020
C2=13:00
D2=14:00

Hvorledes kan man vide om der er gået 1 eller 25 timer?

Vagterne er aldrig over 24 timer.

Mon noget ala denne udf

Function TillægsTimer(Dato As Variant, StartTid As Variant, SlutTid As Variant) As Date
    Application.Volatile
    Dim mDato As Date
    Dim Start As Date, Slut As Date
    Dim mStartTime As Date, mSlutTime As Date
    mStartTime = TimeValue("14:00")
    mSlutTime = TimeValue("6:00")
    mDato = Dato
    mStartTime = Dato + mStartTime
    Start = Dato + StartTid
    If StartTid > SlutTid Then
        Slut = Dato + SlutTid + 1
        mSlutTime = Dato + mSlutTime + 1
    Else
        Slut = Dato + SlutTid
        mSlutTime = Dato + mSlutTime
    End If
    If Weekday(mDato, vbTuesday) > 4 Then
        If Weekday(Start, vbTuesday) = 5 Then
            If Slut > mStartTime Then
                TillægsTimer = Slut - mStartTime
            Else
                TillægsTimer = Slut - Start
            End If
        ElseIf Weekday(Slut, vbTuesday) = 7 Then
            If Slut > mSlutTime Then
                TillægsTimer = mSlutTime - Start
            Else
                TillægsTimer = Slut - Start
            End If
        Else
            TillægsTimer = Slut - Start
        End If
    End If
End Function

Hej Jan

Tak for dit forslag, men uanset hvad jeg skriver, så giver resultatet 0.

se https://www.dropbox.com/s/ol2tmtgn4o1utmb/till%C3%A6gstimer.xlsm?dl=0

Den regner desværre forkert Jan.

Dato            Start    Slut            Tillægstimer    Resultat   
11-01-2020    22:30    05:30    15:30        07:00
12-01-2020    22:30    05:25    06:55        05:30


Hvor jeg har skrevet resultat, var det - som den oprigtigt skulle haft givet.

prøv nu:

Ser ud til at virke Jan, det er perfekt. Kan du lave sådan, at hvis tiden er 00:00 så bliver cellen blot blank i VBA scriptet - eller skal jeg lave en hvis i stedet for?

Det er nok smartest at lave med en hvis!!

Super tusind tak for hjælpen Jan!

Velbekomme

Hej Jan

Jeg er stødt på et problem med koden, den udregner også timer om mandagen - umiddelbart er det - hvis der intet er om søndagen.
Orange er weekend og helligdag.

https://www.dropbox.com/s/1vwlu8z8mbffezg/Till%C3%A6gstimer.xlsm?dl=0

Ved ikke, om du kan løse det.

https://www.dropbox.com/s/ol2tmtgn4o1utmb/Till%C3%A6gstimer.xlsm?dl=0
prøv nu!!

Tak Jan, det ser bedre ud. Hvis der skal tilføjes HELLIGEDAGE(mDato) <> "", således at en helligdag bliver talt med som "søndag", hvordan får jeg det til at passe?

ElseIf Weekday(Slut, vbTuesday) = 7 Or HELLIGEDAGE(mDato) <> "" Then

Den giver egentlig det rigtige resultat, hvis tiden går over midnat. Men hvis det er i løbet af dagen så tæller den slet ikke.

Har også fundet ud af, hvis man formaterer arket til 1904 systemet, så fungere din tider ikke. Hvorfor ikke?

Kan Ikke hjælpe dig videre, har ikke tid lige for øjeblikket, håber der er en anden der kan hjælpe!!

Jan