Detectar el numero de la semana actual

[seba123neo]

Hola, algo asi?

Código vb:

Private Sub Command1_Click()
    MsgBox NumeroSemana(DateValue("01/08/2009"))
End Sub
 
Function NumeroSemana(pFecha As Date) As Integer
    Dim sFecha As String
    sFecha = "01/" & Month(pFecha) & "/" & Year(pFecha)
    NumeroSemana = DatePart("ww", pFecha) - DatePart("ww", DateValue(sFecha)) + 1
End Function
 

saludos.