Semana del Mes

[Rocket]

Holas

estaba buscando algo , alguna funciona o lo ke sea que me devuelva el numero de la semana del mes actual y no encontre nada asi ke me puse a probar y salio esto:

Código:

WOM = datepart("WW", date(), 2) - datepart("WW", DateSerial(Year(date()), Month(date()), 1), 2)

la primera parte me devuelve la semana actual del año y la segunda la semana del primer dia del mes, pero hoy 26/04/2006 me devuel 4 siendo ke estamos en la semana 5 y ya no se me ocurre ke mas hacer asi ke dejo el codigo aki por si alguien encuentra la solucion

saludos

[Myakire]

Me encontre esta:

Function WhichWeek(InDate As Date) As Integer
Dim EnteredDate As Date
EnteredDate = InDate
FirstDateCount = WeekDay(GetDate(EnteredDate, "Current", "First"))
If DatePart("d", InDate) <= FirstDateCount Then
WhichWeek = 1
Else
WhichWeek = 1 + Int(DatePart("d", InDate) - FirstDateCount) / 7
End If
End Function

En TSQL