no coz formu?ami to troch? warunk?w jest, poni?ej funkcja, kt?r?
stworzy?em w VBA (dzia?a jak ka?da inna), z dwoma parametrami, kom?rka
z pocz?tkiem i koncem pracy.


Function godziny_pracy(poczatek, koniec)

pocz_nocy = #10:00:00 PM#
kon_nocy = #6:00:00 AM#
If poczatek >= kon_nocy And poczatek < pocz_nocy Then
czy_dzienna_poczatek = "Y"
Else: czy_dzienna_poczatek = "N"
End If

If koniec >= kon_nocy And koniec < pocz_nocy Then
czy_dzienna_koniec = "Y"
Else: czy_dzienna_koniec = "N"
End If

'praca zaczyna sie w dzien i ko?czy si? w dzie?
If czy_dzienna_poczatek = "Y" And czy_dzienna_koniec = "Y" Then
If poczatek < koniec Then
godziny_pracy = Format(koniec - poczatek, "h") & " godzin
dziennych"
Else: godziny_pracy = Format(koniec - kon_nocy + pocz_nocy -
poczatek, "h") & " godzin dziennych i 8 godzin nocnych"
End If

End If

'praca zaczyna sie w dzie? i ko?czy si? w nocy
If czy_dzienna_poczatek = "Y" And czy_dzienna_koniec = "N" Then
If poczatek < koniec Then
godziny_pracy = Format(koniec - poczatek, "h") & " godzin
dziennych i " & Format(koniec - pocz_nocy, "h") & " godzin nocnych"
Else: godziny_pracy = Format(pocz_nocy - poczatek, "h") & " godzin
dziennych i " & Format(koniec + 2 / 24, "h") & " godzin nocnych"
End If

End If

'praca zaczyna sie w nocy i ko?czy si? w dzie?
If czy_dzienna_poczatek = "N" And czy_dzienna_koniec = "Y" Then
If poczatek < koniec Then
godziny_pracy = Format(koniec - kon_nocy, "h") & " godzin
dziennych i " & Format(kon_nocy - poczatek, "h") & " godzin nocnych"
Else: godziny_pracy = Format(koniec - kon_nocy, "h") & " godzin
dziennych i " & Format(1 - poczatek + 6 / 24, "h") & " godzin nocnych"
End If

End If

'praca zaczyna sie w nocy i ko?czy si? w nocy
If czy_dzienna_poczatek = "N" And czy_dzienna_koniec = "N" Then
If poczatek < koniec Then
godziny_pracy = "0 godzin dziennych i " & Format(koniec -
poczatek, "h") & " godzin nocnych"
Else: godziny_pracy = "0 godzin dziennych i " & Format(koniec +
2 / 24, "h") & " godzin nocnych"
End If

End If
End Function


--
Pozdr.
Cynio