Non so che conti tu abbia fatto, ma la settimana 37 del 2025 è questa:
settimana 37 8 settembre 2025 14 settembre 2025
Dove appunto il giorno 8 Settembre è Lunedì ed il 14 è domenica.
Il giorno 5/10/2025 appartiene alla settimana 40 ed era Domenica, mentre il giorno 10/10/2025 appartiene alla settimana 41 ed era Venerdì, cerca di fare esempi coerenti con quello che chiedi.
Avevo fatto un catalogo di funzioni sulle manipolazioni delle date... probabilmente questa è quella che ti serve:
Public Function Week2Date(WeekNo As Long, Optional Anno) As Date
' ------------------------------------------------------
' Restituisce la data del Lunedì della settimana[WeekNo]
' passata come parametro
' ------------------------------------------------------
Dim Jan1 As Date
Dim Sub1 As Boolean
Dim ret As Date
If IsMissing(Anno) Then
Jan1 = DateSerial(Year(Date), 1, 1)
Else
Jan1 = DateSerial(Anno, 1, 1)
End If
Sub1 = (Format(Jan1, "ww", VBA.VbDayOfWeek.vbUseSystemDayOfWeek, VBA.VbFirstWeekOfYear.vbUseSystem) = 1)
ret = DateAdd("ww", WeekNo + Sub1, Jan1)
ret = ret - Weekday(ret, vbMonday) + 1
Week2Date = ret
End Function
Provala, restituisce correttamente il giorno 8 Settembre 2025, quindi con DateAdd sommi 4 per ottenere il Venerdì.