Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

accessman
accessman
Access Cevaplanmış Soruları
9
1404

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

Çözüldü #1
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
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
@benbendedeilem
Son Düzenleme: 09/06/2020, 08:47, Düzenleyen: accessman.
Cevapla
#2
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Month yazan yerlere 1 yazıp deneyin.ikincidede yıla bir ekleyin aydaki +1 silin.
Cevapla
#3
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
ç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
@benbendedeilem
Son Düzenleme: 09/06/2020, 10:22, Düzenleyen: accessman.
Cevapla
#4
userx
Uzman
userx
Bul
Uzman
Adı Soyadı:
Konum: -
Ofis Versiyonu: Ofis 2019 32 Bit
Son Oturumu: 28/02/2024,00:48
Yorumları: 601
Konuları: 2
Kayıt Tarihi: 24/08/2009
Teşekkür Puanı: 179
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 ?
"Dünyayı fazla düşünme."
Cevapla
#5
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,13:36
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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)
Cevapla
#6
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
ç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
Task