AccessTr.neT

Tam Versiyon: Dogumgünü hesaplamayı terfi takibe çevirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
Yalnız ben terfitar=DateAdd("yyyy",5,işebaşladığıtarih) bunuda o şekilde yani ; yazdım. Metinkutusundaki denetim kaynagına tam olarak şu şekilde yazdım
=DateAdd("yyyy";5;[Go_Bas]) oldu.
Bu fonksiyonu kesintisiz işe devam eden tüm personelin işe giriş tarihlerine uyguladığında o personelin 5 yıllık 1.terfi tarihini verir. Bunu bir tuşa , sorguya veya formun her çalıştırılışına atayabilrisin. Bunun dışında 5 i 10 -15- 20 yaparak 2.,3., terfi tarihlerini de bulabilirisn.
nasıl bulacağız 5 - 10 - 15 - 20 ... şimdiki yazdığımız =DateAdd("yyyy";5;[Go_Bas]) sadece 5. yılı veriyor. biz buna göre bir hekim 8/2 başlıyorsa 5 yıl sonra 8/3 10 sonra 7/1 gibi devam eder gider 1/4 son bulur.
Ama asıl konu kesintili çalışan personelin durumu. Bir kere bu personelin her giriş çıkış tarihi elimizde olmalı.Biz bu giriş çıkışlardan gün sayısını bulabilmeliyiz.
Personel Adı: A
GirTar........... CıkTar.............Gun
01/01/1995.... 31.12.1998......Sayı1
03/05/2000.... 01/06/2002......Sayı2
15/09/2005..... Devamediyor...Sayı3
Toplam Gün sayısı= Sayı1+Sayı2+Sayı3
Bu gün sayılarını yıla çevirip eğer 5 yıl dolmuşsa 1.Terfi, 10 yıl dolmuşsa 2.terfi verilebilmeli.
Benim kurabildiğim mantık bu. Siz ne diyorsunuz?
aslında ben daha önce buna benzer bir konu açmıştım. onun örneğinide ekliyeyim inceleyebilirmisiniz.
Sayın hegu;
Alıntı:nasıl bulacağız 5 - 10 - 15 - 20 ...
Örnek için boş bir form açın. Bu forma 4 tane metin kutusu , 1 tane de tuş koyun.
1.metin kutusuna girtar,
2.metin kutusuna terfiyili
3.metin kutusuna terfitarihi
4.metin kutusuna durum
Komut tuşuna da hesapla adını verin.
Sonra hesapla tuşunun click yordamına aşağıdaki kodu yazın.
terfitarihi=DateAdd("yyyy",terfiyili,girtar)
terfitarihi kutusunda yazan tarih bize şahsın terfiyilina yazdığımız sayı kadar yıla göre terfi alacağı tarihi verir.
Sonra aşağıdaki kodu yazarak kalan günü durum kutusuna yazdırırız.hesaplarız.
durum=DateDiff("d",Now,terfitarihi)
Sayfalar: 1 2 3 4 5