Power Builder - Determinar No. de Semana con fecha

Hola a todos:

Necesito de su ayuda para resolver el siguiente problema:

Requiero hacer un histórico donde pueda guardar el No. de semana y el rango de fechas a la que corresponde.

Por Ej.:

No. Semana: 1
F. Inicial : 01/01/2006
Fecha Final: 07/01/2006

y asi consecutivamente hasta llegar a diciembre.

¿Alguien conoce un método para lograrlo ?..

Gracias,

hola antonio, mira yo tenia q resolver : una determinada fecha , a que semana del año corresponde, quizas te sirva
hice una funcion q recibia un argumento con la fecha a tratar
asi:

long ll_semana
ll_semana = f_obtener_semana_del_ano(today())

// function "f_obtener semana_del_año"

date ld_fechamenor
long dias,semana,año,ll_aux

año=long(string(ad_fechamayor,"yyyy")) -1
ld_fechamenor=date( string(año)+"/12/31")

dias=daysafter(ld_fechamenor,ad_fechamayor)
for ll_aux=1 to dias
if daynumber(relativedate(ld_fechamenor,ll_aux)) =1 then semana++
next

return semana

saludos