Excelde Yıllık Ücretli İzin Takibi

[cuneight1]

Merhabalar...

Excelde Yıllık Ücretli İzin Takibi için çalışma yapmaktayım.. Kullanmış olduğum modülde kişinin yaşını çalışma yaptığım günün tarihini baz olarak hesaplıyor. ancak ben kişinin hak ettiği tarihte hesaplama yapmasını istiyorum yardımlarınız için şimdiden teşekkürler....

Function izinbul(sontar, bastar, yastar As Date) As Integer
yas = (CLng(Date) - CLng(yastar)) / 365

basyil = Year(bastar)
basay = Month(bastar)
basgun = Day(bastar)

sonyil = Year(sontar)
sonay = Month(sontar)
songun = Day(sontar)

If basgun > songun Then sonay = sonay - 1
If basay > sonay Then sonyil = sonyil - 1

farkyil = sonyil - basyil

izinbul = 0
If farkyil >= 1 Then izinbul = 14
If farkyil < 5 And yas < 18 Or yas > 50 Then izinbul = 20
If farkyil >= 6 Then izinbul = 20
If farkyil >= 15 Then izinbul = 26
End Function

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Fonksiyona bir parametre daha ekledim. (haktar)

Formülü hücreye yazarken "hak ettiği" tarihi ilgili yere tanımlarsanız doğru sonuç alabilirsiniz.

Function izinbul(sontar, bastar, haktar, yastar As Date) As Integer
yas = (CLng(haktar) - CLng(yastar)) / 365

basyil = Year(bastar)
basay = Month(bastar)
basgun = Day(bastar)

sonyil = Year(sontar)
sonay = Month(sontar)
songun = Day(sontar)

If basgun > songun Then sonay = sonay - 1
If basay > sonay Then sonyil = sonyil - 1

farkyil = sonyil - basyil

izinbul = 0
If farkyil >= 1 Then izinbul = 14
If farkyil < 5 And yas < 18 Or yas > 50 Then izinbul = 20
If farkyil >= 6 Then izinbul = 20
If farkyil >= 15 Then izinbul = 26
End Function

 

[cuneight1]

Mükemmel... çok teşekkür ederim Korhan Bey...

 

[assenucler]

Sayın cuneight,

Acaba, rica etsek örnek dosyayı ekleyebilir misiniz?

Emek ve katkı veren dostlara ve üstatlara teşekkürler.

 

[cuneight1]

Sayın cuneight,

Acaba, rica etsek örnek dosyayı ekleyebilir misiniz?

Emek ve katkı veren dostlara ve üstatlara teşekkürler.

Henüz tamamlanmadı bittiğinde elbette paylaşırım Sayın assenucler