A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FORM] Ayın Ilk Ve Son Günlerini Yazmak
#1
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.


Eklenti Dosyaları
.png   Bilanco2.png (Boyut: 182,49 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#2
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
  1. 'İlk Tarihi Bulmak İçin;
  2. Dim ilktarih
  3. ilktarih = DateSerial(Year(BlncKytTrh),Month(BlncKytTrh),1)
  4.  
  5. 'Son Tarihi Bulmak İçin;
  6. Dim sontarih
  7. sontarih = DateSerial(Year(BlncKytTrh),Month(BlncKytTrh)+ 1,0)
  8. 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ı



  Alıntı
Bu mesajı beğenenler:
#3
Merhaba;
aşağıdaki kodu fonksiyonlara ekle


Visual Basic
  1. Public Function songun(TARIH As Date) As Date
  2. TARIH = DateAdd("M", 1, TARIH)
  3. songun = "01/" & DatePart("m", TARIH) & "/" & DatePart("yyyy", TARIH)
  4. songun = (songun) - 1
  5. Debug.Print songun
  6. End Function
  7. Public Function ilkgun(TARIH As Date) As Date
  8. ilkgun = "01/" & DatePart("m", TARIH) & "/" & DatePart("yyyy", TARIH)
  9. Debug.Print ilkgun
  10. End Function




istediğin metin kutusunun adını yazman yeterli

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





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Mesaj Kutusuna Alan Ismi Yazmak M_Kemal_Askeri 9 375 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.187 04-01-2021, 22:41
Son Mesaj: ates2014
  [VBA] Tabloyu Tek Hücrede Yazmak ekremer1969 7 408 05-12-2020, 10:45
Son Mesaj: ekremer1969
access-sql-5 Her Ayın 15'inden 15'ine Işlem Yapma alperalper 1 314 18-02-2020, 16:03
Son Mesaj: dsezgin
  [VBA] Ayın tarihlerini gün gün sıralama deniz_tunc 22 2.986 19-11-2018, 09:19
Son Mesaj: deniz_tunc
  [TABLO] If kodunu IIf olarak yazmak edacan19 5 871 18-01-2018, 13:28
Son Mesaj: edacan19
  [FORM] Form Üzerinde Bütün Harfleri Büyük Olarak Yazmak gogoli01 2 2.133 03-12-2017, 23:22
Son Mesaj: kardanadam51
  rakamı yazıyla yazmak muhittinibrahim 8 5.937 03-01-2017, 00:11
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi