AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

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

1 2
09/06/2020, 08:46

accessman

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
09/06/2020, 08:52

feraz

Month yazan yerlere 1 yazıp deneyin.ikincidede yıla bir ekleyin aydaki +1 silin.
09/06/2020, 10:17

accessman

ç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
09/06/2020, 12:53

userx

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 ?
09/06/2020, 13:09

berduş

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)
09/06/2020, 13:12

accessman

çok teşekkürler sn. @berduş
çok teşekkürler sn. @userx
1 2