Saatlik İzin Hesaplama

[cengizank]

Yardımcı olabilecekler için şimdiden teşekkür ederim.
VB kodu ve Excel formülü gerekmektedir.

Mesai Başlanğıcı "09:00:00" (a1) hücresinde
Mesai Bitimi "18:00:00" (b1) hücresinde olacak
sonuc "08:00:00" (c1) hücresinde olan

sonuc niye 8 saat derseniz. 1 saat'lik öğlen tatili çıkarılacak

ayrıyeten şöyle bir sıkıntı daha var

bu kişi sabah için izin aldı diyelim

iş yerine geliş saati saat "01:10:00"

burada öğlen mesaisi 40 dakika bu 40 dakikayı düşecek

gün içinde izin alınan saat öğlen vaktinde gelmiş veya öğleden sonrada gelmiş olabilir. kısacası öğlen ihtirahat vaktinde oluşan dakikalar düşülerek sonuç yazılması gerekiyor

hem excel formülü hemde vb kodu

teşekkürler

sorunumu hallettiğim dosyayı ekledim

diğer arkadaşlarında inşallah işine yarar

 

[zetkatamet]

Merhaba,
Ekteki dosyayı inceleyiniz.. Formul kısmını yapmaya calistim. Umarim isinize yarar..

 

[cengizank]

Teşekküler ama tam istediğim değil

örnek VB

Function measisaat(saat1, saat2)

Dim saata, saatb
Dim sonuc1, sonuc2

saat2 = TimeSerial(saat2)
saat1 = TimeSerial(saat1)

If saat2 = TimeSerial(9, 0, 0) And saat1 = TimeSerial(18, 0, 0) Then
sonuc1 = saat1 - saat2
mesaisaat = sonuc1
Else
End If
End Function
geri dönüşde değer hatası oluşuyor

formül kullanımı
=measisaat(L33-K33)


veya ecxel'de


------- K33 09:00:00 L33 18:00:00 --------- referans alabilir
K35 09:00:00 L35 18:00:00


=EĞER(VE(K33>=K33;L33>=L33);L35-K35-"01:00:00";L35-K34)

örnek olarak bu
yukarıdaki eğer sorgusu yetersiz kalıyor öğlen tatili için
lakin yukarıda açıkaldığım konuya uygun şekilde eğer sorgulu olacak

 

[cengizank]

sonunda sorunu çözdüm

değerlerim K53 ve L53'de
siz A ve B de değer girin formülünüzüde K ve L'leri değiştirin

=EĞER(YADA(VE(K53>=S_0900;L53<=S_1230);VE(K53>=S_1330;L53<=S_1800));(L53-K53);EĞER(VE(K53=S_0900;L53=S_1800);(L53-K53)-(S_1330-S_1230);EĞER(VE(K53>=S_1230;L53>=S_1330);(L53-K53)-(S_1330-K53);EĞER(VE(K53<=S_1230;L53>=S_1330);(L53-K53)-(S_1330-S_1230);EĞER(VE(K53<=S_1230;L53<=S_1330);(L53-K53)-(L53-S_1230); )))))



başka sayfada ad tanımlaması yaptım aşağıdaki gibidir
ad tanımlaması
S_0900 = 09:00:00
S_1230 = 12:30:00
S_1330 = 13:30:00
S_1800 = 18:00:00


formülün içinde bunlar ne diye sorarsanız

 

[salihelicabuk]

sonunda sorunu çözdüm

değerlerim K53 ve L53'de
siz A ve B de değer girin formülünüzüde K ve L'leri değiştirin

=EĞER(YADA(VE(K53>=S_0900;L53<=S_1230);VE(K53>=S_1330;L53<=S_1800));(L53-K53);EĞER(VE(K53=S_0900;L53=S_1800);(L53-K53)-(S_1330-S_1230);EĞER(VE(K53>=S_1230;L53>=S_1330);(L53-K53)-(S_1330-K53);EĞER(VE(K53<=S_1230;L53>=S_1330);(L53-K53)-(S_1330-S_1230);EĞER(VE(K53<=S_1230;L53<=S_1330);(L53-K53)-(L53-S_1230); )))))



başka sayfada ad tanımlaması yaptım aşağıdaki gibidir
ad tanımlaması
S_0900 = 09:00:00
S_1230 = 12:30:00
S_1330 = 13:30:00
S_1800 = 18:00:00


formülün içinde bunlar ne diye sorarsanız

Cengiz bey merhaba;

Öncelikle formülünüz çok işime yaradı, fakat excel cahili birisi olarak size danışmak istediğim konu, sabahtan ve öğleden sonra olmak üzere 2 tane çay molamız var bunları ekleyebilmem için yardımcı olurmusunuz ?