Calcolo compenso con orari a cavallo di giorni

Ciao Tutti

Ho due campi [entrata] [uscita] formato data ora.
Ho una tabella di compensi per fasce orarie.

Il calcolo compenso per fascie orarie, se [entrata] e [uscita] sono effettuate nello stesso giorno l'ho risolto.

Il problema è se l'uscita avviene nel giorno (o nei giorni) successivi; non riesco a trovare il "ragionamento" per sviluppare la ruotine di calcolo.

Avete già affrontato e risolto il problema?

Grazie.

Originariamente inviato da Sergio Mazza

Ciao Tutti

Ho due campi [entrata] [uscita] formato data ora.
...
Il problema è se l'uscita avviene nel giorno (o nei giorni) successivi; non riesco a trovare il "ragionamento" per sviluppare la ruotine di calcolo.
...

Ciao,
non dovrebbe cambiare nulla nel 'ragionamento;
mostra quello che hai fatto

è il tuo "dovrebbe" che mi preoccupa

Comunque ecco il codice:

With objRstFiltrato

    Do While Not .EOF
        entrataTmp = entrata
        uscitaTmp = uscita
                
'--> calcolo compenso
        If entrataTmp >= CDate(Format(entrataTmp, "dd/mm/yyyy") & " " & !fasciaOrariaDalle) And entrataTmp <= CDate(Format(entrataTmp, "dd/mm/yyyy") & " " & !fasciaOrariaAlle) Then

calcoloCompenso_ricercaUscita:
            '--> se entrata e uscita sono nella stessa fascia oraria
            If uscitaTmp <= CDate(Format(uscitaTmp, "dd/mm/yyyy") & " " & !fasciaOrariaAlle) Then
                oreLavorate = ElapsedTime(uscitaTmp - entrataTmp, "ore:minuti:secondi")
                compensoOrario = compensoOrario + ((Hour(oreLavorate) + Minute(oreLavorate) / 60) * !tariffaOraria)
                chkProseguiRicerca = False
            Else
                oreLavorateTmp = ElapsedTime(CDate(uscitaTmp & " " & !fasciaOrariaAlle) - entrataTmp, "ore:minuti:secondi")
                compensoOrario = compensoOrario + ((Hour(oreLavorateTmp) + Minute(oreLavorateTmp) / 60) * !tariffaOraria)
                entrataTmp = DateAdd("s", 1, uscitaTmp & " " & !fasciaOrariaAlle)
                chkProseguiRicerca = True
            End If
            
            If chkProseguiRicerca = True Then
                .MoveNext
                GoTo calcoloCompenso_ricercaUscita
            End If
        End If
'<-- / calcolo compenso

        .MoveNext
    Loop
End With

per completezza la ElapsedTime l'ho presa qui:
https://docs.microsoft.com/it-it/off...-datetime-data

Se la prestazione si estende su più gg, diciamo 2, devi tenere conto che, nel cambio gg va sottratto il tempo non lavorativo.
Se la fascia oraria è fissa 8÷18, quando rilevi il cambio gg puoi sottrarre sempre 14ore per ogni gg che corrispondono alle ore dalle 18÷8 del mattino... ovviamente n giorni n×14
Ho semplificato ma era solo per capire se la logica può reggere, ma dipende dalla reale casistica.

Ok; completo il problema.

L'orario di lavoro, come principio del mio problema, non ha interruzione se non quando viene terminato il servizio.

Come fasce orarie ho (es.):
entrata: 16:00 uscita: 21:00 tariffa oraria: 10€
entrata: 21:00 uscita: 00:00 tariffa oraria: 20€
entrata: 00:00 uscita: 03:00 tariffa oraria: 30€

Ipotizzando una (timbratura) entrata: 16:30 e uscita: 01:30 (ovviamente nel campo c'è anche il giorno);

il ragionamento (su carta) era che avrei verificato prima di tutto se c'è una differenza (giorni) tra l'entrata e l'uscita; questa differenza avrebbe fatto da "contatore" per il loop che avrebbe aggiornato il giorno dell'entrata e dell'uscita mentre calcolo il compenso nelle fasce orarie del giorno.

Non fai prima ad incrementare per confronto... mi spiego.
Fai un ciclo che finisce quando la l'ora di fine è minore dell'ora di inizio della fascia successiva.
Il ciclo include una variabile che aggiorni con la fascia corrente... poi affini la fascia successiva... e riconfronti.
Ad ogni iterazione se la fascia è inclusa sommi il compenso pieno altrimenti calcoli il deltacompenso ed esci.
Nella sostanza invece di calcolare il differenziale parti dall'ora inizio per sommare sempre le fasce orarie... la dove sei fuori fascia... ovvero le ore non lavorative ti sposti alla 1°fascia... e riparti.
Credo di essermi spiegato malissimo...

...(forse) ti sarai spiegato malissimo, e probabilmente anche io ho capito malissimo, ma... mi sembra che sia lo stesso mio approccio, che va bene per timbrature nello stesso giorno.

Quello che penso intenda @Alex, e che in passato ho usato anche io per calcolare le indennità sul servizio, è che potresti calcolare intanto le ore totali del servizio.
Poi imposti un ciclo, aggiungendo un'ora alla volta, verificando se il risultato ricada o meno nella stessa fascia o in quella successiva. Nel frattempo sommi in modo incrementale le indennità relative alla fascia rilevata.
Il tutto termina quando raggiungi la data-ora di fine del servizio, quando nella variabile incrementale delle indennità dovresti avere il totale delle indennità percepite per tutto il servizio.

TheTruster

Non proprio...
Intendo di partire con un riferimento data/ora della prima fascia oraria inclusa, da Libero poi ciclo aggiungendo al riferimento data/ora il dTempo della fascia successiva e confronto se la fine intervento è inclusa, tengo conto ed aggiungo il successivo.ecc...

Ipotizzando di crare un'array con una variabile type OraIni/Orafine per salvare le n fasce il loop continua nell'array... se passo la giornata è già previsto dal momento che sommo ore.
Sibdeve solo fare attenzione quando riparto dall'indice 0 dell'area che deve far spostare il riferimento senza sommare ma solo assegnando l'ora iniziale.
In questo modo conto non il tempo ma quante e quali fasce orarie sono incluse nell'intervallo rendendo più veloce e forse semplice la valorizzazione.

Ora sono fuori casa e capisco che non sia semplice capire il mio ragionamento... ma questa sera magari scrivo 2 righe...

personalmente opterei per suddividere l'intervallo entrata-uscita in pezzi dipendneti dalle fasce orarie;

una cosa del genere

1) leggo entrata e successiva uscita ( lasciamo perdere che l'entrata in realtà potrebbe essere anche un'uscita notte)
2) determino fascia oraria entrata
3.1) se uscita rientra nella fascia oraria entrata proseguo con la prossima entrata ( punto 1)
3.2 altrimenti uscita = fine fascia oraria attuale e proseguo con una entrata fittizia pari alla fine della fascia oraria attuale
... e così via ;

ed arrivati alla fine della timbratura di uscita di cui al punto 1) ricomincio il giro con la prossima entrata

HTH