nieuwe besteltijd uitrekenen

[sylvester-ponte]

Harry,
er wordt gewerkt van 6:00 tot "25:00" en niet in de weekeinden zie werktijdentabel

dinsdag 28 november 2017 tussen 00:30:00 en 24:00 is 18:30
woensdag 29 november 2017 tussen 00:00:00 en 24:00 is 19:00
donderdag 30 november 2017 tussen 00:00:00 en 6:30 is 01:30
totaal 39:00 uur

 

[Piet Bom]

Ik heb nog wat verder geëxperimenteerd en kwam tot een werkende formule.
Hij werkt echter alleen als het verschil tussen de start en eind minder is dan een jaar.
Dat kan nog verbetert worden en dus ook sneller.
Ook werkt deze oplossing met tijden die afgerond zijn op een kwartier.
Laat maar even weten of dit de goeie richting op gaat.

 

[Piet Bom]

Ik heb nu een goed werkende en compactere oplossing.............

 

[sylvester-ponte]

hier eentje met een eenvoudige vba function die eventueel laat zien waar de tijden vandaan komen.zie voorbeeld

Piet, bedankt hier de verbetering

 

[Piet Bom]

@Sylvester,
Er is een function afgevallen............

 

[Piet Bom]

Kan de TS het nog volgen ?

@RVDV88, zit er al iets bij wat de goede richting op gaat ?

 

[HSV]

Piet.

B10-INTEGER(B10) = rest(b10;1)

 

[snb]

Schrijf wat er precies moet gebeuren eens regel voor regel in het Nederlands uit.
De oplossing komt dan meestal bovendrijven. Analysing precedes coding.

 

[Piet Bom]

@HSV,
Inderdaad Harry, dat is korter.
In de Engelse versie is dat MOD(B10;1) en die vergeet ik steeds

 

[Peter B]

Was idd. eens begonnen met het uitschrijven. Volgens mij kun je het nl. opdelen in 3 stukken:
1. Aantal uren startdag tot "25:00". Ik zie 2 situaties: Start voor 24:00 en start na 24:00
2. Aantal werkdagen tussen startdag en einddag * 19:00 ("25:00"-06:00). Ik zie 3 situaties: startdag=einddag; einddag voor 1:00;einddag na 6:00
3. Aantal uren einddag. Ik zie 2 situaties: Als voor "25:00" dan is deze al berekend en moet deze tijd afgetrokken worden. Anders uren - 06:00.

Ik kom dan op de volgende formules. Deze kunnen vast korter/ slimmer:

=IF(MOD(A2;1)<1/24;1/24-MOD(A2;1);25/24-MOD(A2;1))
=IF(INT(B2-A2)>0;(NETWORKDAYS(A2;B2)-IF(MOD(A2;1)<1/24;1;2))*19/24;0)
=IF(MOD(B2;1)-1/4<0;MOD(B2;1)-1/24;MOD(B2;1)-1/4)