Skip to main content

AccessTr.neT


İki Tarih Arası Ayların Listelenmesi

İki Tarih Arası Ayların Listelenmesi

Çözüldü #1
Merhabalar Arkadaşlar,

Resimde görüldüğü şekliyle iki tarih arasındaki ayların başlangıç ve bitiş tarihleriyle listelenmesine ihtiyacım var. Bu tarz bir örneğe rastlayamadım sitede. 
Herhangi bir ayın ilk ve son günlerini alabiliyorum ancak ihtiyaca cevap vermiyor.



[Resim: do.php?img=9448]
Cevapla
#2
isterseniz çalışmanızın ilgili kısmını ekleyin inceleyelim
Peki aynı ay girilmişse mesela 5 ocak 2010 ile 25 ocak 2010 gibi
yada son tarih ilk tarhten küçükse  5 ocak 2010 ile 25 aralik 2009 gibi
Cevapla
#3
(15/01/2020 23:29)berduş Adlı Kullanıcıdan Alıntı: isterseniz çalışmanızın ilgili kısmını ekleyin inceleyelim

Merhaba,

Form1 de oluşturalacak verinin Tablo1'e aktarılması gerekiyor.

Teşekkürler.
(16/01/2020 01:14)berduş Adlı Kullanıcıdan Alıntı: Peki aynı ay girilmişse mesela 5 ocak 2010 ile 25 ocak 2010 gibi
yada son tarih ilk tarhten küçükse  5 ocak 2010 ile 25 aralik 2009 gibi

Aynı ay girilmişse örnek üzerinden Başlangıç tarihi 5 Ocak 2010 Bitiş Tarihi 25 Ocak 2010 olmalı.
Son tarih ilk tarihten küçük olmamalı, onu metin kutusunda tarih girerken if komutuyla yapabilirim.
.rar İkitariharası.rar (Dosya Boyutu: 10,42 KB | İndirme Sayısı: 10)
Cevapla
#4
Aşağıdaki kodu dener misiniz?
Not: tekrarlı girişleri engellemek için bir yöntem eklemedim
Visual Basic Code
Dim BasTrh, BitTrh, DnmBas, DnmBit As Date

BasTrh = CLng(Me.Metin0)
BitTrh = CLng(Me.Metin2)
DnmBas = BasTrh 'DateAdd("m", 1, Bastrh)

Do While DnmBas < BitTrh
If DateDiff("m", DnmBas, BitTrh) = 0 Then _
                 DnmBit = BitTrh Else _
                 DnmBit = CLng(DateSerial(Year(DnmBas), Month(DnmBas) + 1, 0))

    CurrentDb.Execute " insert into [Tablo1] (Donem,[Baslangic_Tarihi],[Bitis_Tarihi])" & _
                      " VALUES ('" & Format(DnmBas, "mmm.yy") & "'," & _
                                     CLng(DnmBas) & ", " & _
                                     CLng(DnmBit) & ") "

DnmBas = CLng(DateSerial(Year(DnmBas), Month(DnmBas) + 1, 1))
Loop
Cevapla
#5
Çok teşekkür ederim hocam istediğim gibi olmuş, yine farkınızı ortaya koymuşsunuz.  +rep
Dönem'de sadece ay yazıyor, yılı da ekleyebilirmiyim?
Cevapla
#6
Visual Basic Code
Format(DnmBas, "mmmm")
kodunu
Visual Basic Code
Format(DnmBas, "mmmm-yyyy")
şeklinde değiştirebilirsiniz
format() fonksiyonu veriyi şekillendirmekte kullanılıyor, fonksiyonla ilgili daha ayrıntılı bilgi için biraz daha araştırma yapmanız gerekebilir.

dikkatimden kaçmış kusura bakmayın
Visual Basic Code
Format(DnmBas, "mmmm")
yerine
Visual Basic Code
Format(DnmBas, "mmm.yy")
şeklinde yazmak gerekiyor
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task