Skip to main content

AccessTr.neT


Bu ay ? Bu yıl ? ( 2 tarih arası )

Bu ay ? Bu yıl ? ( 2 tarih arası )

#1
İçinde bulunduğunuz gün itibariyle ( Date () )
Bu ayın ik günü ve son gününe veya Bu yılın
ilk ve son gününe hiç ihtiyaç duydunuz mu ?

Ben resimde göreceğiniz combobox yardımı ile
ilk tarih ve son tarih atama uygulamasında buna
ihtiyaç hissettim

[Resim: i1fxia.jpg]

Google ın da yardımı ile aşağıdaki kodlara ulaştım

İçinde bulunduğumuz ayın ilk gün tarihi (01.01.2011 için)

ilktarih=CDate("01/" & Month(Now) & "/" & Year(Now))


İçinde bulunduğumuz ayın son günü tarihi (31.01.2011 için)

sontarih=DateAdd("d", -1, CDate("01/" & Month(Now) + 1 & "/" & Year(Now)))


İçinde bulunduğumuz yılın ilk günü tarihi (01.01.2011 için)

ilktarih=CDate("01/01/" & Year(Now))


İçinde bulunduğumuz yılın son günü tarihi (31.12.2011 için)

sontarih=DateAdd("d", -1, CDate("01/01/" & Year(Now) + 1))

Sistem tarihinizi farklı günlere alıp kodları deneyebilirsiniz, çalışıyorlar Img-grin
Özellikle son tarihleri bulmak için kullanılan "sonraki aya gidip 1 çıkarmak
veya sonraki yıla gidip 1 çıkarmak" metodunu çok eğlenceli buldum.

Kolay gelsin

.rar buay_buyıl.rar (Dosya Boyutu: 37,29 KB | İndirme Sayısı: 114)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Sn Okileturc araştırma ve paylaşımınız için tebrik ve teşekkürlerimi sunuyorum
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#3
Paylaşım için teşekkürler Oktay hoca.

Alternatif olarak burada DateSerial fonksiyonu da kullanılabilir.

Mevcut ayın ilk günü:
MsgBox DateSerial(Year(Date), Month(Now), 1)
Mevcut ayın son günü:
MsgBox DateSerial(Year(Date), Month(Now) + 1, 0)
Mevcut yılın ilk günü:
MsgBox DateSerial(Year(Date), 1, 1)
Mevcut yılın son günü:
MsgBox DateSerial(Year(Date) + 1, 1, 0)
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
#4
Hemen bakacağım , çok tşk.
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
Çok güzel çalışıyor. Kesinlikle çok daha temiz
bir kod olduğu için sizin önerinizi kullanacağım.
Örneği DateSerial kodlarla ekliyorum. Tekrar tşk.

.rar buay_buyıl_maytas.rar (Dosya Boyutu: 39,48 KB | İndirme Sayısı: 56)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
Bu güzel paylaşım ve katkınız için teşekkürler..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task