Access SQL
[VBA] Tarih Aralığına Denk Gelen Tarihi Bulma - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: [VBA] Tarih Aralığına Denk Gelen Tarihi Bulma (/Konu-Tarih-Araligina-Denk-Gelen-Tarihi-Bulma)

Tarih Aralığına Denk Gelen Tarihi Bulma - alperalper - 26-03-2022

Arkadaşlar tbl_sabitdegerler adındaki tablomda veriler var. Bunların revizyon tarihleri var. Form1 üzerinde yıl ve ay seçtiğimde başlama tarihi olan tarihin hangi revizyona denk geldiğini bulmak istiyorum.

Örneğin 2019, Ocak seçtim bu halde 01.01.2019 tarihinin sabit değerler tablosundaki revizyon tarihlerinden hangisine denk geldiğini bulmam gerekiyor. sabit değerlerde kullanacağım veriyi çekebilmek adına. revizyon tarihi olarak örneğin 2019 tarihinde var 2020 de var. seçilen tarih yeni revizyon tarihinden küçük önceki revizyondan büyük eşit olduğunda uyan revizyonu almalı.

RE: Tarih Aralığına Denk Gelen Tarihi Bulma - dsezgin - 27-03-2022

(26-03-2022, 20:44)alperalper demiş ki: revizyon tarihi olarak örneğin 2019 tarihinde var 2020 de var.
seçilen tarih yeni revizyon tarihinden küçük önceki revizyondan büyük eşit olduğunda uyan revizyonu almalı.

Sn alperalper; dönem olarak mı veri gösterilsin?

Secilen yil + Ay'a ait donem baslangic ile son gun tarihini bulmak isteniyorsa

Visual Basic
  1. Private Sub liste_ay_AfterUpdate()
  2. Dim Trh As Date
  3. Trh = DateSerial(liste_yıl, liste_ay.Column(0), 1)
  4. If IsNull(liste_yıl) Then
  5.     MsgBox "Yıl seçimi yapınız.", vbCritical, "Uyarı"
  6.     liste_ay = ""
  7.     liste_yıl.SetFocus
  8.     Exit Sub
  9. Else
  10.     donem_bt_tarihi = DateSerial(Year(Trh), Int((Month(Trh) - 1) / 3) * 3 + 4, 0)
  11.     donem_bs_tarihi = DateSerial(liste_yıl, Month(donem_bt_tarihi) - 2, 1)
  12. End If
  13.  
  14. test = ""
  15.  
  16. End Sub




RE: Tarih Aralığına Denk Gelen Tarihi Bulma - alperalper - 01-04-2022

(27-03-2022, 11:25)dsezgin demiş ki:
(26-03-2022, 20:44)alperalper demiş ki: revizyon tarihi olarak örneğin 2019 tarihinde var 2020 de var.
seçilen tarih yeni revizyon tarihinden küçük önceki revizyondan büyük eşit olduğunda uyan revizyonu almalı.

Sn alperalper; dönem olarak mı veri gösterilsin?

Secilen yil + Ay'a ait donem baslangic ile son gun tarihini bulmak isteniyorsa

Visual Basic
  1. Private Sub liste_ay_AfterUpdate()
  2. Dim Trh As Date
  3. Trh = DateSerial(liste_yıl, liste_ay.Column(0), 1)
  4. If IsNull(liste_yıl) Then
  5.     MsgBox "Yıl seçimi yapınız.", vbCritical, "Uyarı"
  6.     liste_ay = ""
  7.     liste_yıl.SetFocus
  8.     Exit Sub
  9. Else
  10.     donem_bt_tarihi = DateSerial(Year(Trh), Int((Month(Trh) - 1) / 3) * 3 + 4, 0)
  11.     donem_bs_tarihi = DateSerial(liste_yıl, Month(donem_bt_tarihi) - 2, 1)
  12. End If
  13.  
  14. test = ""
  15.  
  16. End Sub


Hocam teşekkür ederim. bana farklı bir fikir verdi biraz daha değişik şekilde hallettim.