AccessTr.neT
Toplama işlemi hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Toplama işlemi hakkında (/konu-toplama-islemi-hakkinda.html)



Toplama işlemi hakkında - apolet - 12/04/2012

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

Şimdiden teşekkürler

PERSONEL İZİN TAKİP 1.rar



Cvp: Toplama işlemi hakkında - Kur@l - 12/04/2012

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


Cvp: Toplama işlemi hakkında - apolet - 13/04/2012

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


Cvp: Toplama işlemi hakkında - apolet - 30/04/2012

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