ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[K.YILMAZ]

Merhaba yardımınıza ihtiyacım var
mesai saatleri 07-19 ve 19-07 olmak üzere çift vardiyadır, gün içinde 15-30-15-15 dk lık molalar yapılmakta, molaya ise her vardiya 3 grup halinde yani örneğin saat 09:00 09:15 1. grup 09:15 09:30 2.grup 09:30 09:45 3 grup şeklinde çıkmakta benim problemim ise başlangıç bitiş saatini yazmış olan personelin denk geldiği molaları düşüp net çalışma süresini veren bir kod yazmak (normal excel formülleriyle yapıyorum fakat çok fazla eğer formülü ve sutun oluştu dosya çalışmayacak derecede yavaşladı )

örn başlangıç saati=A1=08:00
bitiş saati=B1=16:30 net çalışma süresi=?

(not: 1. çay molası : 09:00-09:45 arası gece 21:00-21:45 arası 15 er dk 3 grup halinde
yemek : 11:30-13:00 arası gece 23:30-01:00 arası 30 ar dk 3 grup halinde
2. çay molası : 15:00-15:45 arası gece 03:00-03:45 arası 15 er dk 3 grup halinde
3. çay molası : 17:00-17:45 arası gece 05:00-05:45 arası 15 er dk 3 grup halinde )

[Ömer BARAN]

Merhaba.

Elbette kodlama yapılabilirdi ancak, öyle EĞER işlevini filan kullanmadım.

Birini satır başlık, B2 GİRİŞ saati, C2 Çıkış saati olmak üzere;

-- H2: Normal çalışma BAŞLANGIÇ saati,
-- I2: Mola1 başlama saati,
-- J2: Mola1 sonrası işe başlama normal saati,
-- K2: Mola2 başlama saati (yemek)
-- L2: Mola2 sonrası işe başlama normal saati,
-- M2: Mola3 başlama saati,
-- N2: Mola 3 sonrasi işe başlama normal saati,
-- O2: Norma çalışma BİTİŞ saati,
iken aşağıdaki formülün istenilen sonucu vermesi gerekir.

Kod: Tümünü seç

=(I2>=$B$2)*(MİN(I2;$C$2)-MAK(H2;$B$2))+(K2>=$B$2)*(MİN(K2;$C$2)-MAK(J2;$B$2))+(M2>=$B$2)*(MİN(M2;$C$2)-MAK(L2;$B$2))+(O2>=$B$2)*(MİN(O2;$C$2)-MAK(N2;$B$2))

.