Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/04/2012 13:57
Konu Sahibi
apolet
Yorumlar
3
Okunma
1270
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

apolet

Üye
Kullanici Avatari
Üye
7
3
23/12/2009
0
Belirtilmemiş
Belirtilmemiş
31/01/2017,00:10
Çözüldü 
Basit bir izin takip programı yaptım fakat genel toplamları yaptıramıyorum yardımcı olrsanız sevinirim .

Şimdiden teşekkürler

Ek Dosyalar
PERSONEL İZİN TAKİP 1.rar


apolet, 23-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
18/09/2017,01:08
Çözüldü 
Bu örnek için hazırladığım izintakip modülü personelin kaç gün izin hakkettiğini hesaplayan bir modül içermektedir. İnceleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'----------------------------------------------------------------------------
'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

apolet

Üye
Kullanici Avatari
Üye
7
3
23/12/2009
0
Belirtilmemiş
Belirtilmemiş
31/01/2017,00:10
Çözüldü 
Çok teşekkürler hocam elinize sağlık


apolet, 23-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

apolet

Üye
Kullanici Avatari
Üye
7
3
23/12/2009
0
Belirtilmemiş
Belirtilmemiş
31/01/2017,00:10
Çözüldü 
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


apolet, 23-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Sorguda Veri Sayma İşlemi ertans 10 317 25/08/2017, 16:34 ertans
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 961 14/07/2017, 08:32 Gokcen Akan
Çözüldü Access Sorguda Toplama İşlemi onrask 6 386 16/06/2017, 18:13 ozanakkaya
Çözüldü Verileri Taşıma Hakkında. serkan1985 4 299 02/06/2017, 20:51 serkan1985
Çözüldü Formda Farklı Tablolardan Toplama İşlemi Yapmak ALTANs 5 408 01/06/2017, 17:12 ALTANs

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.