[FONKSiYON] Excel İçindeki Bir Formülün Access Karşılığı

alperalper · 24-11-2017, 16:33

Arkadaşlar benim bir excel dosyam vardı. İçinde izin başlama ve izin bitiş tarihi yazan sütunlarım vardı. Her ay içine denk gelen izin gün sayısını aşağıdaki formülle hesaplıyordum.

=MAK(0;(MİN($F302-1;TARİH(YIL(P$1);AY(P$1)+1;0))-MAK($C302;P$1)+1))

Ancak bu access te olmuyor. Bir sorgu sonucunda gelen verilerin yanına filtre edilen ay içindeki izin gün sayısını nasıl getirebilirim. elinde örnek bir uygulaması filan olan var mı?

dsezgin · 24-11-2017, 17:50

SQL
SELECT SUM(GunSayisi([Baslama],[Bitis]," & [Hangi Ay] & ")) AS GunS FROM TabloAdi

Visual Basic
Public Function GunSayisi(Bs, Bt As Date, Ay As Long) As Long
Dim Tarih As Date, SyGn As Long
For Tarih = Bs To Bt
If CLng(Month(Tarih)) = Ay Then SyGn = SyGn + 1
Next Tarih
GunSayisi = SyGn
End Function

Akti, Hafta Sonu, Bayram gunleri haric icin dongu icine kosul koymaliyiz.

alperalper · **Kayıt Tarihi:** 06.11.2013

@dsezgin kardeş ilgin için teşekkürler ancak sum fonksiyonu işimi görmüyor. ben sorguda ayrı bir sütuna toplam değil ay içine düşen süreyi bulmaya çalışıyorum.

EDİT: Sorun halloldu teşekkürler. Sum kullanmadım.

alperalper · **Kayıt Tarihi:** 06.11.2013

@dsezgin kardeşim burada bir sorun yaşıyorum. Bu paylaştığın fonksiyon işimi gördü ancak yıl kriterine bakmıyor???

Örneğin 2017 Ocak ayına düşen bir izin sayısını çok güzel çıkarıyor ancak 2018 Ocak ayında izin olmamasına rağmen burada da aynı izinleri çıkarıyor..... Buna nasıl bir ekleme yapmalıyım. Fonksiyona yıl ekledim ama hesaplarım doğru çıkmadı birtürlü.

Visual Basic
Public Function GunSayisi(Bs, Bt As Date, ay As Long) As Long
Dim tarih As Date, SyGn As Long
For tarih = Bs To Bt
If CLng(Month(tarih)) = ay Then SyGn = SyGn + 1
Next tarih
GunSayisi = SyGn
End Function

dsezgin · 25-11-2017, 21:42

Hangi YilAy 201706 olarak girilmesi gerekir.

SQL
SELECT GunSayisi([Baslama],[Bitis]," & [Hangi YilAy] & ") AS GunS FROM TabloAdi

Visual Basic
Public Function GunSayisi(Bs, Bt As Date, YilAy As Long) As Long
Dim Tarih As Date, SyGn As Long
For Tarih = Bs To Bt
If CLng(format(Tarih,"yyyymm")) = YilAy Then SyGn = SyGn + 1
Next Tarih
GunSayisi = SyGn
End Function

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] Sorgu Ifadesi Içindeki Fonksiyon Ifade Içinde Kullanılamaz Hatası	Mecnun24	7	658	27-08-2024, 16:53 Son Mesaj: Mecnun24
	Format([giris], "dd-mm-yyyy" Sorgu Ifadesi Içindeki Derleme Hatası.	gncbil	5	598	07-06-2024, 10:48 Son Mesaj: dsezgin
	[TABLO] Excel Aktarımı	kahramanselim	6	748	06-04-2024, 21:11 Son Mesaj: kahramanselim
	Access'e Yeni Tablo Oluşturarak Excel Import Etmek, Table'ı Sütunlara çevirmek...	İlhanYaylıcı	25	2.577	02-10-2023, 13:32 Son Mesaj: halily
	Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk.	adnnfrm	2	523	05-08-2023, 02:23 Son Mesaj: adnnfrm
	Excel Birleştir Ve Süz	Bora34	6	1.284	16-02-2023, 18:33 Son Mesaj: Bora34
	Access'e Dosya Bul Butonu Ile EXcel'den Veri çekme	snapper	2	598	06-12-2022, 11:51 Son Mesaj: snapper
	[VBA] access den makro ile excel çalışma kitabı açmak	omur34	10	10.241	09-05-2022, 12:37 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL