Skip to main content

AccessTr.neT


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

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

Çözüldü #1
iyi günler

Visual Basic Code
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
@benbendedeilem
Son Düzenleme: 09/06/2020, 08:47, Düzenleyen: accessman.
Cevapla
#2
Month yazan yerlere 1 yazıp deneyin.ikincidede yıla bir ekleyin aydaki +1 silin.
Cevapla
#3
çok teşekkürler sn. @feraz şu şekilde imiş

Visual Basic Code
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
@benbendedeilem
Son Düzenleme: 09/06/2020, 10:22, Düzenleyen: accessman.
Cevapla
#4

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 ?

userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
belirtilen tarihin olduğu haftanın ilk günü

Visual Basic Code
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) 

Cevapla
#6
çok teşekkürler sn. @berduş

çok teşekkürler sn. @userx
@benbendedeilem
Son Düzenleme: 09/06/2020, 13:13, Düzenleyen: accessman.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da