iki tarih arasını saydırmak ve başka bir değerle toplamak

iki tarih arasını saydırmak ve başka bir değerle toplamak - 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ığı: iki tarih arasını saydırmak ve başka bir değerle toplamak (/konu-iki-tarih-arasini-saydirmak-ve-baska-bir-degerle-toplamak.html)

iki tarih arasını saydırmak ve başka bir değerle toplamak - oguzgon - 02/04/2011

Arkadaşlar merhaba,
access te yeniyim, hem öğrenmek hemde çalıştığım yerde işime yarayacak birşeyler yapmak istiyorum fakat bir noktada takıldım. Yardımcı olabilirseniz sevinirim.
Yapmak istediğim şey:
Personelin kaç yıllık tecrübesi olduğu, eğer 1 ile 5 yıl arasında ise 18 gün 6 ile 15 yıl arasında ise 24 gün , 16 ve üstü için 27 gün izin hakkı vermesini istiyorum. Personelin izin bakiyesine ilave yapmak istiyorum. İşe giriş tarihinden 1 yıl sonra örneğin izin bakiyesine 24 gün izin ilave etmek isriyorum. Bu konularda bana yardımcı olabilirseniz sevinirim.

Cvp: iki tarih arasını saydırmak ve başka bir değerle toplamak - alpeki99 - 02/04/2011

Öncelikle iki tarih arasındaki gün sayısını elde etmelisiniz. Daha sonra IF komutu ile çalışma zamanı xx gün ile xx gün arasında olanların izin günü şu kadardır sonucunu elde edebilirsiniz.

İki tarih arasın gün ay yıl vb. sonucu bulan örnek için lütfen ziyaret ediniz :

<a href="https://accesstr.net/konu-iki-tarih-arasi-gun-ay-yil-hesaplama.html">İki Tarih Arası Gün Ay Yıl Hesaplama</a>

Cvp: iki tarih arasını saydırmak ve başka bir değerle toplamak - oguzgon - 02/04/2011

ilginiz için teşekkür ederim. bende zaten sizin örneğiniz ile bir çalışma yapmaya başladım. (verdiğim ekte görülmektedir.) fakat if, case v.b komutları hiç bilmediğimden ve böyle bir örnekte görmediğimden nasıl yapacağımı bilmiyorum. ilk mesajımda yeniyim demiştim ama birşeyler bildiğimi söyleyemem şöyle diyebilirim, doğdum ve emeklemeyi öğrenmeye çalışıyorum.

Cvp: iki tarih arasını saydırmak ve başka bir değerle toplamak - ozanakkaya - 02/04/2011

PERSONEL_IZIN_BILGILERI formuna aşağıdaki kodu ekle

Sub Hesapla()

Dim sure As Integer

    If IsNull([ise giris tarihi]) Then

    Hak_Ettiği_İzin = ""

    Exit Sub

    Else

sure = Diff2Dates("y", [ise giris tarihi], [tarihbugun])

    End If



        Select Case sure

            Case 1 To 5

                Hak_Ettiği_İzin = "18"

            Case 6 To 15

                Hak_Ettiği_İzin = "24"

            Case Is > 16

                Hak_Ettiği_İzin = "27"



        End Select

End Sub

Aynı formun Geçerli Olduğunda olayına ve "ise_giris_tarihi" metin kutusunun Güncelleştirme Sonrasında olayına aşağıdaki kodu ekle

Call Hesapla

Cvp: iki tarih arasını saydırmak ve başka bir değerle toplamak - oguzgon - 09/04/2011

teşekkür ediyorum