[Resolvido] WeekNumber Function - Numero da Semana

[P@trique 0]

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.