Esiste una funzione che ritorna il numero settimana in base ad una data?

Ciao,
ti consiglio usare la funzione DatePart, o magari di scrivertene una tua, qualcosa del tipo

Function getSettimana( d )
 Dim tmp
 
 tmp =CDate( "1/1/" & CStr(Year(d)) )

 getSettimana = 1
 While tmp<>d
  If Weekday(tmp) = 2 Then
   getSettimana = getSettimana + 1
  End If
  tmp=tmp+1
 Wend

End Function

? DatePart("ww",Date)
3

? getSettimana(Date)
4

Nota come alla data odierna (19/01/06) la funzione predefinita DatePart valuti di default la domenica come primo giorno, mentre la funzione getSettimana valuti il lunedì; per ottenere lo stesso risultato con DatePart:

? DatePart("ww",Date,2)
4

Dai un'occhiata al reference di DatePart:
http://msdn.microsoft.com/library/en-us/script56/html/4e45cd84-b22b-437f-8410-6f4b8ff1c769.asp

e a quello di Weekday:
http://msdn.microsoft.com/library/en-us/script56/html/c6c8d3d6-cf6b-4545-8844-2b09a72491bd.asp

Ciao ciao

Grazie 1000!

Ciao