Yıllık izin makrosu hak.

[faceturk]

Değerli forumdaşlar ekteki makro hakkında yardımcı olursanız sevinirim.
bu makro yaşıda dikkate alarak 18 yaşından küçük ve 50 yaşından büyük çalışanlara 20 gün izin hakkı vermekteydi. 4857 sayılı iş kanununa göre 14 gün idi .
Bizim şu anki kurumumuzda toplu sözleşme gereği izinler 20 den başladığı için 4857 sayılı kanundan kaynaklanan 18 yaş altı ve 50 yaş üstü çalışma kıdemi ne olursa olsun 20 gün izin hakkı ortadan kalkmış oluyor benim makrom bu şarta göre idi ben sondan 2 satırı silerek işlemi tamamlamak istedim fakat olmadı .
5 yılı dolduran kişiye 30 gün izin veriyor bizim yıllık izin şartlarımız şu şekilde
0- 5 yıl 20 gün
6 - 9 yıl 25
10 ve sonraki yıllar için 30 iş günü yıllık izinimiz mevcut

makroyu bu değişikliklere göre revize etmek istiyorum:
yardımcı olursanız sevinirim.
saygılarımla

 

[faceturk]

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 = 20
If farkyil >= 6 Then izinbul = 25
If farkyil >= 10 Then izinbul = 30
End Function





makro bu şekilde

 

[faceturk]

bu makronun düzelmesi gerekiyor

 

[halit3]

bu kodu denermisiniz

Function izinbul(işebaşlama_tarihi)
Tarih = Val(Date - işebaşlama_tarihi)
If Tarih >= 0 And Tarih <= 1827 Then
izinbul = 20
ElseIf Tarih >= 1828 And Tarih <= 3654 Then
izinbul = 25
ElseIf Tarih >= 3655 Then
izinbul = 30
End If
End Function

 

[halit3]

veya bu kodu deneyiniz

Function izinbul(işebaşlama_tarihi)
Tarih = Val((Date - CDate(işebaşlama_tarihi)) / 365.5)

If Tarih >= 0 And Tarih <= 5 Then
izinbul = 20
ElseIf Tarih >= 6 And Tarih <= 9 Then
izinbul = 25
ElseIf Tarih >= 10 Then
izinbul = 30
End If

End Function

 

[faceturk]

Sayın halit bey
ekte dosyam mevcut onun üzerinden giderseniz sevinirim ve size daha yardımcı olacaktır
saygılarımla

 

[halit3]

formülün bu olacak
N3 hücresine aşağıdaki kodu yapıştır

=EĞER(L3<=0;0;EĞER(L3<=$C$1;izinbul(G3);0))

veya

=izinbul(G3)