Hola Keikos, con esta función que te devuelve la semana del año en la que te encuentras puedes hacer lo que quieras:
<pre>
Function SemanaAnio()
'Devuelve la semana del año
SemanaAnio = DateDiff("ww", "01/01/" & CStr(Year(Date)), Date, 2) + 1
End Function
</pre>
Por ejemplo puedes hacer:
<pre>
Dim nSemana
nSemana = SemanaAnio()
Selct Case nSemana
Case 9
'Hago una cosa
Case 10
'Hago otra cosa
Case Else
'Muchas cosas por hacer...
End Select
</pre>
Bueno, espero que esto sea aclaratorio y te sirva. Un gran saludo, Keikos. ;) ;) ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>