Soru belirli bir tarihden hafta/yıl çekme

[bycakir]

merhabalar başlıkta tam anlatamamıs olabilirim ama soyle bir sorum olacak elimde g stununda yazılan bir tarih var ben bu tarıhten haftanın sayısını ve yılını almak istiyorum yardımcı olabilirmisiniz G hücresindeki texbox 6 da yer alan tarihin hafta sayısını / yılını alıp H stununa yazdırmak istiyorum ornegin 23/2022 şeklinde

sh.Range("G" & myRow).Value = Me.TextBox6.Value
sh.Range("H" & myRow).Value = ????

 

[veyselemre]

        tarih = sh.Range("G" & myRow).Value
        hafta = WorksheetFunction.WeekNum(tarih, 21) 'geçen yılın artık haftasından başlar
        ay = Month(tarih)
        yil = Year(tarih)
        If ay = 1 And hafta = 52 Then yil = yil - 1
        sh.Range("H" & myRow).NumberFormat = "@"
        sh.Range("H" & myRow).Value = hafta & " / " & yil

        tarih = sh.Range("G" & myRow).Value
        hafta = WorksheetFunction.WeekNum(tarih) ' yılın ilk günü olan hafta 1 sayılır
        yil = Year(tarih)
        sh.Range("H" & myRow).NumberFormat = "@"
        sh.Range("H" & myRow).Value = hafta & " / " & yil

 

[askm]

A1 Hücresi için örnek ektedir. Kendinize göre uyarlarsınız;

Sub deneme()
tarih = Range("A1")
hafta = DatePart("ww", tarih, vbMonday, vbFirstJan1)
yil = Year(tarih)
End Sub