AccessTr.neT

Basit bir izin takip programı yaptım fakat genel toplamları yaptıramıyorum yardımcı olrsanız sevinirim .

Şimdiden teşekkürler

Bu örnek için hazırladığım izintakip modülü personelin kaç gün izin hakkettiğini hesaplayan bir modül içermektedir. İnceleyiniz.

'----------------------------------------------------------------------------

'Personel İzin Tespiti AccessTR.Net Sitesi İçin Kur@l Tarafından Yazılmıştır

'_________________________Kur@l______________________________________________

'----------------------------------------------------------------------------

Option Compare Database



Public Function izin(isegiris As Date, dogum As Date) As Integer

        Dim sene As Double

        Dim senem As Double

        Dim yas As Double

        Dim izinim As Double

                sene = DateDiff("d", format(isegiris, "yyyy/mm/dd"), format(Date, "yyyy/mm/dd"))

                yas = DateDiff("d", format(dogum, "yyyy/mm/dd"), format(Date, "yyyy/mm/dd"))

 sene = sene / 365

yas = yas / 365

If sene < 1 Then sene = 0

If yas < 1 Then yas = 0



yas = Int(yas)

sene = Int(sene)

       '-------------------------------------------------------------------------------------

       'yaşı 50 den büyük ama 50 yaşından küçük işe başlamışsa bu kısım

        senem = 50 - (yas - sene)

        If senem < 0 Then

            izin = sene * 20

            Debug.Print senem, sene, yas, isegiris, izin

            Exit Function

        End If

    

        If yas >= 50 Then

                    Select Case senem

                                Case 1 To 5

                                    izinim = senem * 14

                                Case 6 To 14

                                    izinim = (5 * 14) + (senem - 5) * 20

                                Case 15 To 100

                                    izinim = (5 * 14) + (9 * 20) + (senem - 14) * 26

                    End Select

                                izin = izinim + ((sene - senem) * 20)

                          Debug.Print senem, sene, yas, isegiris, izin

                                Exit Function

        End If

        

        '-------------------------------------------------------------------------------------

        'yaşı 50 den küçükse bu kısım

        Select Case sene

            Case 1 To 5

                izin = sene * 14

            Case 6 To 14

                izin = (5 * 14) + (sene - 5) * 20

            Case 15 To 100

                izin = (5 * 14) + (9 * 20) + (sene - 14) * 26

        End Select

        Debug.Print senem, sene, yas, isegiris, izin

End Function

İzin Hakkını Belirleme

Çok teşekkürler hocam elinize sağlık

Hocam birde personelin çıkış tarihini girdiğim zaman senelik izin eklemsini durdurması lazım. Bu konuda da yardımcı olursanız sevinirim şimdiden teşekkürler