differenza fra orari MA con 1 eccezione

[raimea]

ciao
ho un quesito sul calcolo delle ore
(espresse in sessantesimi)

in E6 inserisco un orario iniziale
in F6 un orario finale

devo fare la differenza fra questi 2 orari

MA...
con un eccezione !!

l'intervallo che va dalle 12:00 alle 14:30 non va conteggiato

quindi se inserisco dalle 11:52 alle 12:22
mi deve dare 8 minuti non 30min

e il il risultato mi servirebbe in H6

poi in K7 convertire il risultato ottenuto in 6omi
convertirlo in 100mi

spero di essermi spiegato
vi allego un piccolo file


https://www.dropbox.com/scl/fi/j3z1ou8s7ijh2e96nqcjr/differenza-tempi.xlsx?rlkey=ocgs4bxhp82aj9t6luuqco7tk&st=4unfudyt&dl=0

ciao

[Anthony47]

In H6, tra le tante opzioni:

Codice: Seleziona tutto

=(F7-E6)*(F7>E6)+(F6-G7)*(F6>G7)


In K6

Codice: Seleziona tutto

=H12*24


[raimea]

ciao

tutto ok

grazie mille

[raimea]

ciao

bug
la formula funziona nell intervallo indicato
ma da conteggi errati al di fuori degli orari incriminati >> dalle 11:52 alle 12:22



ciao

[Anthony47]

Forse

Codice: Seleziona tutto

=(F7-E6)*(F7>E6)+(F6-G7)*(F6>G7)-(F7-F6)*(F7>F6)

[raimea]

ciao

faccio test

grazie

[Anthony47]

Lascia stare, ci sarebbe almeno un'altra compensazione da fare...
Piu' semplice farla con una Funzione Utente, corrispondente ad esempio a questo codice:

Codice: Seleziona tutto

Function Elaps(ByVal tStart As Date, ByVal tEnd As Date, ByRef tPause As Range) As Single
Dim I As Long, iStart As Long, iStop As Long, tElaps As Long
Dim pStart As Long, pEnd As Long
'
iStart = (tStart - Int(tStart)) * 1440 * 20
iStop = (tEnd - Int(tEnd)) * 1440 * 20
If iStop < iStart Then iStop = iStop + 1440 * 20
pStart = (tPause.Cells(1, 1) - Int(tPause.Cells(1, 1))) * 1440 * 20
pEnd = (tPause.Cells(1, 2) - Int(tPause.Cells(1, 2))) * 1440 * 20
'
For I = iStart To iStop
    If I < pStart Or I > pEnd Then tElaps = tElaps + 1
Next I
'
Elaps = Int(tElaps / 20) / 1440
End Function


Metti il codice in un Modulo Standard del vba, poi userai una formula con questi parametri:

Codice: Seleziona tutto

Elaps(OraInizio; OraFine; RangeDellaPausa)


Il RangeDellaPausa deve essere su 2 colonne
OraInizio e OraFine devono essere in formato "Orario", senza la data
Il risultato sara' preciso al minuto

Esempio:

Codice: Seleziona tutto

=Elaps(E6;F6;F7:G7)

Con questo codice OraDiFine puo' essere anche dopo la mezzanotte (o meglio: inferiore alla data di inizio), e sara' considerata appartenere al "giorno successivo)

Prova e riprova...

[raimea]

ciao
tutto ok

---------
effettivamente ero gia incappato in un altro caso
non ben gestito.

ammetto anche, che inizialmente pensavo di riuscire a risolvere
questa situazione in autonomia con le sole formule,
ma dopo molti prova-riprova ho ceduto a chiedere aiuto
e alla fine effettivamente non e' cosi "semplice" da gest. con le sole formule.

grazie