[VBA] Tarih Aralığına Denk Gelen Tarihi Bulma

alperalper · 26-03-2022, 20:44

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ı.

dsezgin · 27-03-2022, 11:25

(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
Private Sub liste_ay_AfterUpdate()
Dim Trh As Date
Trh = DateSerial(liste_yıl, liste_ay.Column(0), 1)
If IsNull(liste_yıl) Then
    MsgBox "Yıl seçimi yapınız.", vbCritical, "Uyarı"
    liste_ay = ""
    liste_yıl.SetFocus
    Exit Sub
Else
    donem_bt_tarihi = DateSerial(Year(Trh), Int((Month(Trh) - 1) / 3) * 3 + 4, 0)
    donem_bs_tarihi = DateSerial(liste_yıl, Month(donem_bt_tarihi) - 2, 1)
End If
 
test = ""
 
End Sub

alperalper · 01-04-2022, 21:05

(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
Private Sub liste_ay_AfterUpdate() Dim Trh As Date Trh = DateSerial(liste_yıl, liste_ay.Column(0), 1) If IsNull(liste_yıl) Then MsgBox "Yıl seçimi yapınız.", vbCritical, "Uyarı" liste_ay = "" liste_yıl.SetFocus Exit Sub Else donem_bt_tarihi = DateSerial(Year(Trh), Int((Month(Trh) - 1) / 3) * 3 + 4, 0) donem_bs_tarihi = DateSerial(liste_yıl, Month(donem_bt_tarihi) - 2, 1) End If test = "" End Sub

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

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] Veriler Arasında Eşleşen Kelimeleri Bulma.	Satir	5	231	18-02-2023, 15:27 Son Mesaj: celalll
	Altformda Kayıt Bulma Ve Tüm Kayda Metinkutusundan Veri Yazdırma	ŞabanTR	4	217	15-01-2023, 18:07 Son Mesaj: ŞabanTR
	Listbox'ta Tarihi Seçtiğimde Sadece O Tarihe Kadar Trend Grafiğini Getirmesi	YENIFENER	1	165	21-12-2022, 17:32 Son Mesaj: dsezgin
	Sorguda Iki Tarih Aralığına Göre Farklı Bir Tablodan Ortalama çekme	adnnfrm	3	255	21-07-2022, 02:28 Son Mesaj: halily
	Günü Yaklaşan Tarihi Uyarı Ile Bildirmek	Kaptan64	6	457	24-05-2022, 20:47 Son Mesaj: Kaptan64
	Metin Kutusu Içinde Metin Bulma	alikagan	4	228	25-04-2022, 11:49 Son Mesaj: alikagan
	önceki 3 Aylık Dönem Başlama Ve Bitiş Tarihi	alperalper	5	266	03-04-2022, 23:14 Son Mesaj: dsezgin
	[RAPOR] Ard Arda Gelen Kayıtların Raporda 2 Farklı Sayfada çıkmasım	Matriarch	5	248	12-01-2022, 16:32 Son Mesaj: Matriarch

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL