Soru Hafta ve yıl ile tam tarihi bulma

[Lainathiel]

Merhabalar,

Hafta ve yıl ile tam tarihi bulmak istiyorum. Örneğin; 30. hafta 24. yıl tarihini 22.07.2024 gibi tarihe dönüştürmek için makro, formül önerebilir misiniz?

Teşekkürler.

 

[pitchoute]

Merhabalar, şu VBA kodunu deneyip sonucu paylaşabilir misiniz;

Function TarihiHaftadanBul(HaftaNumarasi As Long, YilNumarasi As Long) As Date
    Dim Ocak4 As Date
    Ocak4 = DateSerial(YilNumarasi, 1, 4)
    
    Dim YilBasi As Date
    YilBasi = Ocak4 - (Weekday(Ocak4, vbMonday) - 1)
    
    TarihiHaftadanBul = YilBasi + (HaftaNumarasi - 1) * 7
End Function

Bu kodu ekledikten sonra hücreye şu formülü uygulayın;

=TarihiHaftadanBul(30;2024)

 

[okan32]

Merhabalar,

Hafta ve yıl ile tam tarihi bulmak istiyorum. Örneğin; 30. hafta 24. yıl tarihini 22.07.2024 gibi tarihe dönüştürmek için makro, formül önerebilir misiniz?

Teşekkürler.

Sub HaftaTarihineDonustur()
    Dim hafta As Integer
    Dim yil As Integer
    Dim tarih As Date
      hafta = Range("A1").Value
    yil = Range("B1").Value
         tarih = DateSerial(yil, 1, (hafta - 1) * 7 + 1)
            Range("C1").Value = tarih
          MsgBox hafta & ". hafta, " & yil & " yılı tarihi: " & tarih
End Sub