Yıllık izin kontrol

[akdenizaziz]

Arkadaslar herkese kolay gelsin öncelikle
ekte bulunan dosyayı başka bir yerde görüp almıştım fakat verileri girirken yaşı hanesinin yanında bulunan yıl sutunun yanındaki neyi temsil ediyor anlamadım;birde kanuni yıllık izin hakkı stunundaki formul doğrumudur 3285 sayısı 1826 sayısı ve 365 (365 anladık)gerisini anlayamadım ve yapılan hesaplamaların doğru olup olmadığının söylerseniz sevinirim
kolay gelsin....

 

[agreee]

1 yıl hizmet yılını dolduran yıllık izin hak eder ve şirketin yıllık izin döneminde yıllık iznini kullanır.Yani 2 yıl çalışan 1 yıllık izin kullanmış olur bu nedenle yıl kısmı bir olabilir

 

[halit3]

'bu kodu bir modülün içine koy



Function kıdembul(işebaslamatarihi)
yer = Val((Date - CDate(Format(işebaslamatarihi, "dd.mm.yyyy"))) * 1) + 1 '/ 365.25)
Tarih = Val((yer / 365.25) * 1)
If işebaslamatarihi > 0 Then
If Tarih > 0 Then
kıdembul = Tarih
End If
End If
End Function
Function izinbul(işebaslamatarihi)
yer = Val((Date - CDate(işebaslamatarihi)) * 1) + 1
Tarih = Val((yer / 365.25) * 1)
If işebaslamatarihi > 0 Then
If Tarih <= 0 Then
izinbul = 0
ElseIf Tarih >= 1 And Tarih <= 5 Then
izinbul = 14
ElseIf Tarih >= 6 And Tarih <= 14 Then
izinbul = 20
ElseIf Tarih >= 15 And Tarih <= 65 Then
izinbul = 26
End If
End If
End Function


'N11 hücresine =kıdembul(J11)
'O11 hücresine =izinbul(J11)

'bu formülleri uygularmısın

 

[akdenizaziz]

cevap verdiğiniz için teşekkür ederim;yanlız dosya üzerinde siz işlem yapabilirmisiniz size zahmet ;
funcaotion falan yazılmış vs.vs...

 

[halit3]

dosyayı inceleyiniz.