Bu Yılın İlk Ve Son Gününü Bulmak

Bu Yılın İlk Ve Son Gününü Bulmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bu Yılın İlk Ve Son Gününü Bulmak (/konu-bu-yilin-ilk-ve-son-gununu-bulmak.html)

Sayfalar: 1 2

Bu Yılın İlk Ve Son Gününü Bulmak - accessman - 09/06/2020

iyi günler

Me.bastime = DateSerial(Year(Date), Month(Date), 1)

Me.bittime = DateSerial(Year(Date), Month(Date) + 1, 0)

bu satırlar ile içinde bulunduğumuz tarihin ayın ilk ve son gününü buluyoruz yani
01.06.2020 ve 30.06.2020 tarihleri bulunuyor.
bana lazım olan ise
içinde bulunduğumuz yılın ilk ve son günleri yani
01.01.2020 ve 31.12.2020 tarihlerini bulmak istiyorum ne yazmam lazım

Date() içinden yılı çekip 01.01. ve 31.12 ile birleştirmeyi bende düşündüm ama bunun
DateSerial
ile yazılan bir formülü mutlaka vardır diye düşünüyorum

RE: Bu Yılın İlk Ve Son Gününü Bulmak - feraz - 09/06/2020

Month yazan yerlere 1 yazıp deneyin.ikincidede yıla bir ekleyin aydaki +1 silin.

RE: Bu Yılın İlk Ve Son Gününü Bulmak - accessman - 09/06/2020

çok teşekkürler sn. @feraz şu şekilde imiş

Me.bastime = DateSerial(Year(Date), 1, 1)

Me.bittime = DateSerial(Year(Date) + 1, 1, 0)

bu haftanın başlama be bitiş tarihlerini nasıl yazarız pazartesiden başlayarak

RE: Bu Yılın İlk Ve Son Gününü Bulmak - userx - 09/06/2020

Kod:

Me.MetinKutusu = Format(Day(Date - (DatePart("w", Date, vbMonday) - 1)), "00") & IIf(Format(Date - (DatePart("w", Date, vbMonday) - 1), "yyyymm") < Format(Date + (DatePart("w", Date, vbFriday) - 2), "yyyymm"), Format(Date - (DatePart("w", Date, vbMonday) - 1), " mmm "), Null) & IIf(Format(Date - (DatePart("w", Date, vbMonday) - 1), "yyyy") < Format(Date + (DatePart("w", Date, vbFriday) - 2), "yyyy"), Format(Date - (DatePart("w", Date, vbMonday) - 1), "yyyy"), Null) & "-" & Format(Date + (DatePart("w", Date, vbFriday) - 2), "dd mmmm yyyy")

şeklinde dener misin ?

RE: Bu Yılın İlk Ve Son Gününü Bulmak - berduş - 09/06/2020

belirtilen tarihin olduğu haftanın ilk günü

ilkGun=trh-Weekday(trh, 2)+1'pazartesi

songun=trh-Weekday(trh, 2)+5 'cuma

songun=trh-Weekday(trh, 2)+7 'pazar

'o ayın son pazarı

SonPzr = Trh - Weekday(Trh, 2)

RE: Bu Yılın İlk Ve Son Gününü Bulmak - accessman - 09/06/2020

çok teşekkürler sn. @berduş

çok teşekkürler sn. @userx