Como reconocer las semanas?

[Mario san]

gracias a los 2 por el dato, he hecho una pequeña rutina que siempre
me dara la fecha del principio de la semana actual y su fecha de termino

Código:

actual = date()
anio = "1/1/"&year(actual)
esta_semana = DateDiff("ww", anio, Actual)

for x = -1 to -7 step -1
	if  DateDiff("ww", anio, DateAdd("d", x, Actual)) <> esta_semana then
		inicio = DateAdd("d", x+1, Actual)
		exit for
	end if
next
for x = 1 to 7 
	if  DateDiff("ww", anio, DateAdd("d", x, Actual)) <> esta_semana then
		termino = DateAdd("d", x-1, Actual)
		exit for
	end if
next

mostrar.Source = "SELECT * FROM dbo.tmovimientos where fecha between '" & inicio & "' AND '" & termino & "' ORDER BY id DESC"