Moderatori: Anthony47, Flash30005
=(F7-E6)*(F7>E6)+(F6-G7)*(F6>G7)
=H12*24
=(F7-E6)*(F7>E6)+(F6-G7)*(F6>G7)-(F7-F6)*(F7>F6)
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
Elaps(OraInizio; OraFine; RangeDellaPausa)
=Elaps(E6;F6;F7:G7)
Torna a Applicazioni Office Windows
Conteggi con orari che non tornano Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 16 |
Differenza tra account Google e account Google Workspace Autore: franco11 |
Forum: Discussioni Risposte: 3 |
Consiglio: differenza tra memorie Cache Autore: franco11 |
Forum: Consigli per gli acquisti Risposte: 2 |
Piccolo quesito sulla differenza numerica tra 2 caselle... Autore: nippon |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 9 ospiti