Arkadaşlar merhaba bulunulan aydaki tarihin ayın kaçıncı haftası olduğunu öğrenmek için "weekday" komutuyla denedmi yapamadım. Nasıl yapabilirim?
Hafta Adedi Hk.
Ozan bey belirttiğiniz kod mevcut haftanın yılın kaçıncı haftası olduğunu gösteriyor. Benim yapmak istediğim örnek eylül ayının 2. haftasında isem sadece "2" 3. haftasında isem "3" olarak tarihi kimlik sayarak sütuna eklemesi.
Aşağıdaki fonksiyon ile ayın kaçıncı haftası olduğunu bulabilirsiniz.
Public Function WeekInMonth(dte As Date) As Integer
Dim strMonthYear As String
Dim dteFirstMonth As Date
Dim intDaysDiff As Integer
Dim intDayFirstOfMonth As Integer
strMonthYear = Month(dte) & "/" & Year(dte)
dteFirstMonth = "01" & "/" & strMonthYear
intDayFirstOfMonth = WeekDay(dteFirstMonth, vbMonday)
intDaysDiff = (dte - dteFirstMonth) + intDayFirstOfMonth - 1
WeekInMonth = Int(intDaysDiff / 7) + 1
End Function
Ozan bey fonksiyonu ekledim ama "DATE(WW)" sütununda nası tarihe göre atıycak tam anlayamadım. Örnek ekte yardımcı olabilirseniz çok sevinirim.
(29/09/2017, 13:54)serkan1985 yazdı: Ozan bey fonksiyonu ekledim ama "DATE(WW)" sütununda nası tarihe göre atıycak tam anlayamadım. Örnek ekte yardımcı olabilirseniz çok sevinirim.
her zaman lazım olabilecek ölçüt ifadeleri inceleyiniz
ofis 2010 kullandığınız için ben açamadım 2007 kullanıyorum
Son Düzenleme: 29/09/2017, 15:27, Düzenleyen: simendifer.
Konuyu Okuyanlar: 1 Ziyaretçi