AccessTr.neT

Tam Versiyon: iki tarih arasını saydırmak ve başka bir değerle toplamak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
Ö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>
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.
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
teşekkür ediyorum