[Resolvido] WeekNumber Function - Numero da Semana

sintaxe:

int = WeekNumber(dateValue)

Função WeekNumber:

<%
Private Function WeekNumber(dteValue)

Dim lngDate, intWeek

If Not Weekday("01/01/" & Year(dteValue), vbMonday) > 4 Then
intWeek = 1
Else
intWeek = 0
End If

lngDate = CLng(CDate("01/01/" & Year(dteValue)))

lngDate = lngDate + (8 - Weekday("01/01/" & Year(dteValue), vbMonday))

While Not lngDate > CLng(CDate(dteValue))
intWeek = intWeek + 1
lngDate = lngDate + 7
Wend

If intWeek = 0 Then
intWeek = Week("31/12/" & Year(dteValue) - 1)
End If

WeekNumber = intWeek

End Function
%>

Exemplo de uso:

<%
Response.Write WeekNumber("10/05/1999")
'--- retornara: 19
%>

Descrição: Esta função ira recuperar o número da semana de determinada data.