Ayın kaçıncı haftası ?

[cemshan]

Arkdaşlar a2 den başlayıp a5000 e kadar tarihlerim var . Bu tarihlerin karşısına Ayın hangi haftasına denk geldiğini yazmak istiyorum .

Örneğin 04.05.2023 yazıyor ise Mayıs 1. Hafta yazsın istiyorum

Nasıl formül edebilirim

 

[aspava]

Merhaba ; Denermisiniz ?

=TAMSAYI(((13-HAFTANINGÜNÜ(A2)+GÜN(A2))/7))

 

[Levent Menteşoğlu]

Veya HAFTASAY fonksiyonunu kullanabilirsiniz.

 

[cemshan]

Hafta sayıları doğru. Şu şekilde gelmesini yapabilirmiyiz?

İlgili ayın Kaçıncı haftası Örneğin Mayıs 1. Hafta

 

[cemshan]

A2 de tarih yazıcak b2 e Mayıs 1. Hafta

B2 e göre etopla işlemi yapmak istiyorum

 

[Levent Menteşoğlu]

Sn aspava'nın önerdiği fonksiyonu aşağıdaki gibi kullanabilirsiniz.

=METNEÇEVİR(A2;"aaaa") & " " &TAMSAYI(((13-HAFTANINGÜNÜ(A2)+GÜN(A2))/7)) & ". Hafta"

 

[excelokyanus500]

Fonksiyon olarak yapmak isterseniz şu şekilde olabilir.
B2 = GetMonthWeek()

Function GetMonthWeek()
dat = Date
GetWeekNumber = CInt(Format(dat, "ww", vbMonday, vbUseSystem) - Format(dat - Day(dat) + 1, "ww", vbMonday) + 1)
GetMonthWeek = getMonth() & " Ayının " & GetWeekNumber & ". Haftası "
End Function

 

[cemshan]

Sayın aspava Sayın Levent Bey ilgiliniz için teşekkür ederim ederim . İstediğim sonucu aldım.

 

[cemshan]

Fonksiyon olarak yapmak isterseniz şu şekilde olabilir.
B2 = GetMonthWeek()

Function GetMonthWeek()
dat = Date
GetWeekNumber = CInt(Format(dat, "ww", vbMonday, vbUseSystem) - Format(dat - Day(dat) + 1, "ww", vbMonday) + 1)
GetMonthWeek = getMonth() & " Ayının " & GetWeekNumber & ". Haftası "
End Function

Kodu çalıştıramadım

 

[excelokyanus500]

Bu şekilde çalışacaktır. Düzeltildi. Bu kodu xlam olarak da kullabilirsiniz

Function GetMonthWeek()
ay = Format(Date, "mmmm")
dat = Date
GetWeekNumber = CInt(Format(dat, "ww", vbMonday, vbUseSystem) - Format(dat - Day(dat) + 1, "ww", vbMonday) + 1)
GetMonthWeek = ay & " Ayının " & GetWeekNumber & ". Haftası "
End Function

 

[Ali]

14.05.2023 tarihi için sonuç yanlış döndürür, Yukarıda ki formül Pazarı başlangıç kabul eğer sizin için doğru ise onu kullanırsınız.

Fakat 14.05.2023 Mayıs'ın ikinci haftası olarak kabul edecekseniz ki o da Pazar günüdür. Aşağıdaki gibi deneyiniz.

=AŞAĞIYUVARLA((A1-TARİH(YIL(A1);AY(A1);1))/7;0)+1

Ay adı da görülecek ise

=METNEÇEVİR(A1;"aaaa")&" "&AŞAĞIYUVARLA((A1-TARİH(YIL(A1);AY(A1);1))/7;0)+1&" .Hafta"

 

[cemshan]

Ali Bey , sizin yazdığınız formülde de Nisan ayında bir karışıklık çıkıyor

Nisan 1. Hafta Cumartesinden başlayıp Cuma da bitiyor

 

[Ali]

Nisan 1 ve 2 ilk hafta
Mayıs 1 ile 7 si ilk hafta
Haziran 1 ve 4'ü ilk hafta kabul edilecek ise formül o zaman

=TAMSAYI((13-HAFTANINGÜNÜ(A1-1)+GÜN(A1))/7)

şeklinde olmalı.

 

[Ali]

Diğer alternatifler

=ISOHAFTASAY(A1)-ISOHAFTASAY(TARİH(YIL(A1);AY(A1);1))+1

=HAFTASAY(A1;2)-HAFTASAY(TARİH(YIL(A1);AY(A1);1);2)+1