Skip to main content

AccessTr.neT


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

Çözüldü #1
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.
.rar kaizen deneme.rar (Dosya Boyutu: 40,26 KB | İndirme Sayısı: 20)
oguzgon, 05-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Ö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>
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
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.
oguzgon, 05-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
teşekkür ediyorum
oguzgon, 05-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task