Formel vedr. beregning af overtid

Problemet med negativ tid har jeg løst ved at læse artiklen om Arbejdstidsregistrering - så man kan se bort fra sidste afsnit.

=hvis(sluttid < Starttid;(Sluttid+1)- starttid;sluttid-starttid)

nå det var sidste afsnit

Denne skulle klare overtiden

Public Function Overtid(ByVal Start As Date, Slut As Date, NormalStart As Date, NormalSlut As Date) As Date
Overtid = "00:00"
If Slut < Start Then Slut = Slut + 1
If Start < NormalStart Then Overtid = (NormalStart - Start)
If Slut > NormalSlut Then Overtid = Overtid + (Slut - NormalSlut)
End Function

kaldes sådan

=overtid(A2;B2;"06:00";"18:00")

A2 = starttid
B2 = sluttid
"06:00" normaltid start
"18:00" normaltid slut

Hej kabbak. Beklager at jeg ikke har set dit svar før.
Jeg er ikke helt sikker på hvad jeg skal gøre med ovenstående?

Public Function Overtid(ByVal Start As Date, Slut As Date, NormalStart As Date, NormalSlut As Date, Overtidsbetaling As Double)

Overtid = 0
If NormalSlut < NormalStart Then NormalSlut = NormalSlut + 1
If Slut < Start Then Slut = Slut + 1
If Start < NormalStart Then Overtid = (NormalStart - Start)
If Slut > NormalSlut Then Overtid = (Overtid + (Slut - NormalSlut))
Overtid = (Overtid * 24) * Overtidsbetaling
End Function

Denne kode sætter du ind i et modul, ikke i arkmodulet,
Når du højreklikker på fanen af et ark og vælg vis programkode
Kan du i venstre side se dine arknavne.

Oppe i menulinien vælger du
Insert > module

Nu kan du se ovre under arkene til venstre står Module1.

Se nu er Module1 makeret med grå baggrund, det er her koden skal være

I den celle du vil have beløbet for overtid, til at stå skriver du:
=overtid(A2;B2;"06:00";"18:00";30,00)

A2 = starttid
B2 = sluttid
"06:00" normaltid start
"18:00" normaltid slut
30,00 beløbet per time i overtidsbetaling

Formater cellen som tal eller valuta

det helt vildt! lægger du et svar kabbak...

et svar ;-))

tak for point

selv tak kabbak!
I hvilken sammenhæng arbejder du med VBA programmering i Excel? Evt. som konsulent?

Jeg bruger VBA programmering på mit arbejde, jeg har en del med Excel og Access at gøre, da jeg flytter rundt med en del data, mest fra Excel til Access.

For at gøre det nemmere for mig selv, programmerer jeg en del i VBA og da programmering i Basic altid har intresseret mig, synes jeg det er sjovt, hvad man kan få ud af det.

Jeg er ikke konsulent, men jeg hjælper da også andre uden for Eksperten, med specielle opgaver.

kabbak - jeg kan kun bruge din formel på tillægget i hverdagene (har selv udvidet med hvis-sætning der spørger på ugedag) men har også behov for at beregne tillæg i weekenden - se gerne http://www.eksperten.dk/spm/633664 hvis du vil have yderligere 200 points?