Skip to main content

AccessTr.neT


Toplama işlemi hakkında

Toplama işlemi hakkında

Çözüldü #1
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
Cevapla
Çözüldü #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.
'----------------------------------------------------------------------------
'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
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
Çok teşekkürler hocam elinize sağlık
Cevapla
Çözüldü #4
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da