FoxPro/Visual FoxPro - operecion con fecha

   
Vista:

operecion con fecha

Publicado por RICHARD MARRIAGA LASCARRO (174 intervenciones) el 02/10/2007 16:08:38
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:operecion con fecha

Publicado por enrique (1041 intervenciones) el 02/10/2007 19:40:18
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)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:operecion con fecha

Publicado por RICHARD ANTONIO (174 intervenciones) el 02/10/2007 21:12:15
v_a = dias(10) donde va en la funcion

richard
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:operecion con fecha

Publicado por RICHARD MARRIAGA LASCARRO (174 intervenciones) el 02/10/2007 21:36:56
enrique estoy altamente agradecido con ese aporte
funciona superbien

gracias

richard
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar