FoxPro/Visual FoxPro - operecion con fecha

amigos
estoy tratando de hacer una rutina para determinar una fecha pero que no tome los sabados y domingos asi:

si hoy es 02/10/2007 si le sume 10 dias debe mostrarme la fecha 16/10/2007

solamente debe escojer de lunes a viernes

lcndia = thisform.sqlpageframe1.page3.sqltext5.Value && estos son los numero de dias
sw1 = 0
lcd = 0
******
lcd1 = (DATE()+1)
lcd = DOW(lcd1)
FOR i = 0 TO lcndia
if lcd = 7 THEN && sabado
lcd1 = (lcd1 + 1)
lcd = DOW(lcd1)
if lcd = 1 && domingo
ENDIF
endif

lcd1 = (lcd1 + 1)
lcd = DOW(lcd1)
i= i + 1
ENDFOR

funciona para valores de dias cortos como de 3 dias valores mayores no funciona da una fecha errada

agradezco su colaboración

Esta es una función a la que tenes que pasarle la cantidad de días
v_a = dias(10)

function dias
parameter v_dias
v_hoy = date()
v_x=0

do while v_dias >= v_x
if dow(v_hoy)=1 or dow(v_hoy)=7
v_dias = v_dias + 1
endif
v_hoy = v_hoy + 1
v_x = v_x + 1
enddo

v_hoy = date() + v_dias
return(v_hoy)

v_a = dias(10) donde va en la funcion

richard

enrique estoy altamente agradecido con ese aporte
funciona superbien

gracias

richard