[FORM] Ayın Ilk Ve Son Günlerini Yazmak

M_Kemal_Askeri · 06-10-2021, 19:51

Herkese selam,

Site yönetimi uygulamamda bir altformumda Bilanço Tarihi alanında Bilançonun ait olduğu ayın ilk ve son günlerini gösteren bir bilginin görünmesini istiyorum. Sitemizde ve internette yaptığım araştırmada DateSerial fonksiyonuna ait gördüğüm örneklerden uyguladım ancak parantez vb eksik olduğunu belirten ikaz aldım. Uyguladığım örnek aşağıdadır.

DateSerial(Year(BlncKytTrh), Month(BlncKytTrh), 1) And DateSerial(Year(BlncKytTrh), Month(BlncKytTrh)+1, 0))

Bu örnekte ben Bilanço Kayıt Tarihi alanını ölçüt olarak kullandım. Formun resmini ekledim. Konuyla ilgili arkadaşlardan destek bekliyorum. Teşekkür ederim.

onur_can · 07-10-2021, 08:54

Formüllerinizde herhangi bir hata yok, yalnız burada And kullandığınız için hata verebilir, ayrı ayrı formülüze edip sonradan birleştirebilirsiniz.
yada form değişkeni kullandığınız için sözdizimine uygun olarak yazmanız gerekir. Örneğiniz olmadığı için inceleyemiyorum.

Visual Basic
'İlk Tarihi Bulmak İçin;
Dim ilktarih
ilktarih = DateSerial(Year(BlncKytTrh),Month(BlncKytTrh),1)
 
'Son Tarihi Bulmak İçin;
Dim sontarih
sontarih = DateSerial(Year(BlncKytTrh),Month(BlncKytTrh)+ 1,0) 
MetinKutusu = "Ayın İlk Tarihi:" & ilktarih & " - " & "Ayın Son Tarihi:" & sontarih

Ayrıca DateSerial fonksiyonunu daha yakından tanımak için aşağıdaki linke göz atabilirsiniz.

DateSerial Fonksiyonu Açıklaması

alikagan · 07-10-2021, 10:14

Merhaba;
aşağıdaki kodu fonksiyonlara ekle

Visual Basic
Public Function songun(TARIH As Date) As Date
TARIH = DateAdd("M", 1, TARIH)
songun = "01/" & DatePart("m", TARIH) & "/" & DatePart("yyyy", TARIH)
 songun = (songun) - 1
 Debug.Print songun
End Function
Public Function ilkgun(TARIH As Date) As Date
 ilkgun = "01/" & DatePart("m", TARIH) & "/" & DatePart("yyyy", TARIH)
 Debug.Print ilkgun
End Function

istediğin metin kutusunun adını yazman yeterli

Visual Basic
me.ilkgün = ilkgun(Date)
me.songün = songun(Date)

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Tabloda 0'ın Altındaki Negatif Değerleri 0 Olarak Yazmak Yada Boş Bos Göstermek	ofbayoglu61	4	188	15-07-2023, 13:16 Son Mesaj: ofbayoglu61
	[VBA] Ayın Son 10 Günü	alperalper	5	226	14-03-2022, 15:49 Son Mesaj: dsezgin
	[VBA] Mesaj Kutusuna Alan Ismi Yazmak	M_Kemal_Askeri	9	638	06-04-2021, 01:08 Son Mesaj: M_Kemal_Askeri
	[FORM] Seçilen Haftanın/ayın Ilk Ve Son Günlerini Bulma	ates2014	32	1.874	04-01-2021, 22:41 Son Mesaj: ates2014
	[VBA] Tabloyu Tek Hücrede Yazmak	ekremer1969	7	630	05-12-2020, 10:45 Son Mesaj: ekremer1969
	Her Ayın 15'inden 15'ine Işlem Yapma	alperalper	1	465	18-02-2020, 16:03 Son Mesaj: dsezgin
	[VBA] Ayın tarihlerini gün gün sıralama	deniz_tunc	22	3.701	19-11-2018, 09:19 Son Mesaj: deniz_tunc
	[TABLO] If kodunu IIf olarak yazmak	edacan19	5	1.003	18-01-2018, 13:28 Son Mesaj: edacan19

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL