Function ihbarbul(sontar, bastar) As Integer
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
ihbarbul = 0
If farkyil >= 0 And farkyil < 0.6 Then ihbarbul = 14
If farkyil >= 0.6 And farkyil < 1.8 Then ihbarbul = 28
If farkyil >= 1.8 And farkyil < 3 Then ihbarbul = 42
If farkyil >= 3 Then ihbarbul = 56
End Function
Değerli forumdaşlar yukarıdaki makroyu daha önce yıllık izinlerle ilgili yardımcı olan arkadaşların çalışmalarından kopyalayarak ihbar günü hesaplaması için kullanmak istedim çalışma oldu gibi derken
ihbargünü hesabında ay kesirlerini nasıl dikkate alacağımı bilemedim. yukarıdaki formül yıla göre işlem yapıyor .
ihbargünü hesabında aşağıdaki şekilde hesaplarsa sevinirim.
0 - 6 ay çalışanlar :14 gün
6 - 18 ay çalışanlar : 28 gün
18-36 ay çalışanlar : 42 gün
36 ay sonrası : 56 gün ihbar günü hakediyor.
dosya hakkında yardımlarınız bekler hayırlı işler dilerim.
saygılar...
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
ihbarbul = 0
If farkyil >= 0 And farkyil < 0.6 Then ihbarbul = 14
If farkyil >= 0.6 And farkyil < 1.8 Then ihbarbul = 28
If farkyil >= 1.8 And farkyil < 3 Then ihbarbul = 42
If farkyil >= 3 Then ihbarbul = 56
End Function
Değerli forumdaşlar yukarıdaki makroyu daha önce yıllık izinlerle ilgili yardımcı olan arkadaşların çalışmalarından kopyalayarak ihbar günü hesaplaması için kullanmak istedim çalışma oldu gibi derken
ihbargünü hesabında ay kesirlerini nasıl dikkate alacağımı bilemedim. yukarıdaki formül yıla göre işlem yapıyor .
ihbargünü hesabında aşağıdaki şekilde hesaplarsa sevinirim.
0 - 6 ay çalışanlar :14 gün
6 - 18 ay çalışanlar : 28 gün
18-36 ay çalışanlar : 42 gün
36 ay sonrası : 56 gün ihbar günü hakediyor.
dosya hakkında yardımlarınız bekler hayırlı işler dilerim.
saygılar...