'----------------------------------------------------------------------------
'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
#2
Bu örnek için hazırladığım izintakip modülü personelin kaç gün izin hakkettiğini hesaplayan bir modül içermektedir. İnceleyiniz.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.
