Saat farkı

[karaca1981]

Merhaba benim sorunum şu personel calişma saatler içerisinde 20:00 ile 06:00 saatlerine denk gelirse kaç saat geldiyse yazmasını istiyorum örnek verecek olursam personel saat 17:00 da başlayan personel 01:00 işi bitiyor buna otomatik olarak 5 saat gece calisma yazsin veya başka bir örnek 23:00da başlayan personel 07 ;00 da işi bitiyor bunada 7 saat gece çalışması yazmasını istiyorum

 

[MusaPEKEL]

Function GeceCalismaHesapla(baslamaSaati As Date, bitisSaati As Date) As Double
    Dim geceBaslangici As Date
    Dim geceBitisi As Date
    Dim calismaSuresi As Double
    Dim geceCalismaSuresi As Double
    
    ' Gece çalışma sınırları
    geceBaslangici = TimeValue("20:00:00")
    geceBitisi = TimeValue("06:00:00")
    
    ' Çalışma süresi hesapla
    calismaSuresi = bitisSaati - baslamaSaati
    
    ' Gece çalışma süresini hesapla
    If baslamaSaati >= geceBaslangici Or bitisSaati <= geceBitisi Then
        If baslamaSaati < geceBaslangici Then
            geceCalismaSuresi = WorksheetFunction.Min(calismaSuresi, geceBitisi - geceBaslangici)
        Else
            geceCalismaSuresi = WorksheetFunction.Min(calismaSuresi, bitisSaati - geceBaslangici)
        End If
    End If
    
    GeceCalismaHesapla = geceCalismaSuresi
End Function

=GeceCalismaHesapla(A2, B2)

Bu formülde A2, başlama saati ve B2, bitiş saati olarak kabul edilmiştir. İhtiyacınıza göre hücre referanslarını ve formülü değiştirebilirsiniz.

 

[karaca1981]

Hocam bunu eğer formulu ile yapabilirmisiniz çünkü ordan başka hücreye fazla çalışmasına adacak

 

[yanginci34]

Alternatif olarak ben daha önce bu konuda yardım almıştım incelermisiniz.
https://www.excel.web.tr/threads/gece-zammi-hesaplama.176176/

 

[karaca1981]

hocam ekli dosyaya bakarmısınız