Suddividere mese in settimane

[_mike_]

Ciao a tutti,
Ho un problema con una funzione di programmazione:
io utilizzo, o meglio ne sono costretto, FoxPro come linguaggio ma se potete aiutarmi anche con altri linguaggi mi arrangerò io.
Dicevo, avrei bisogno di una procedura (non solo del nome di una funzione perchè in FoxPro non esiste ma proprio della procedura con le varie istruzioni per intenderci) che mi suddivida un qualsiasi mese dato in ingresso dall'utente in settimane terminanti di Venerdì.
Vi faccio un esempio:
Se l'utente mi da in input il 20-04-2010 per esempio io dovrei ritrovarmi a ciclarmi il mese di aprile del 2010 suddivso per venerdì in questo modo:
1-2 (dove il 2 è venerdì)
2-9 (dove il 9 è venerdì)
9-16 (dove il 16 è venerdì)
16-23 (dove il 23 è venerdì)
23-30 (dove il 30 è venerdì)

e in ognuno di questi intervalli fare delle operazioni in questo modo per esempio:
.....
data in ingresso
funzione che cicla il mese dato suddiviso per venerdi restituendomi una cosa del genere:
inizio
da 1 a 2
mie operazioni
fine
inizio
da 2 a 9
mie operazioni
fine
inizio
da 9 a 16
mie operazioni
fine
ecc ecc

Non so se sono stato chiaro ma come faccio a trovarmi in un questa situazione di ciclicità con una qualsiasi data che mi viene data in ingresso (variabile)?

Se risponderà qualcuno grazie mille.