FoxPro/Visual FoxPro - COMO SABER EL NUMERO DE SEMANA DE UNA FECHA??

ESTOY PROGRAMANDO UNA APLICACION , EL PROBLEMA ES QUE LLENO UNA TABLA CON FECHAS, E INFORMACION, NECESITO AGRUPARLA POR SEMANAS DE TAL FORMA Q NECESITO IDENTIFICAR 4 JULIO 2008 PERTECE A LA 1 SEM DE JULIO.

LA FUNCION WEEK() , ME DEVUELVE LA SEMANA DEL ANO.. PERO QUIERO UNA FUNCION Q AL DARLE UNA FECHA, ME DIGA A QUE NUMERO DE SEMANA PERTENECE DEL MES. . EJEM. AL VALOR 1-JUN-2008, LA FUNION TENDRIA Q DEVOLVER 1 PQ PERTENCE A LA PRIMERA SEMANA DE JUNIO. ME EXPLICO?

ESPERO PUEDEAN AYUDARME.

hasta un case con 52 opciones una por semana y dependiendo de cual numero te de week tonces sabras cual semana es segun tu case

********************************************************************
* Programa que determina el número de la semana dentro del mes
* de la fecha pedida
*
* Nota:
* El número de semana que devuelve es independiente
* del número de semana dentro del año.
*
* Creado por : Lic. Miguel Aybar
* fecha : octubre - 01 - 2010
* Santo Domingo, República Dominicana
****************************************************************

set talk off
clear all
cls

store " " to fecha
@ 12,30 say "Deme fecha"
@ 12,42 get fecha picture "99/99/9999"
read

fecha = ctod(fecha)

store 0 to num_semana

if ( day(fecha)-dow(fecha) ) > 0

num_semana = int((day(fecha)-dow(fecha))/7)
if int(mod(day(fecha)-dow(fecha),7)) > 0
num_semana = num_semana + 1
endif

endif

num_semana = num_semana + 1

? num_semana