Visual Basic - rango de fechas para domingos

Life is soft - evento anual de software empresarial
   
Vista:

rango de fechas para domingos

Publicado por harold_m (24 intervenciones) el 20/05/2010 23:54:09
necesito saber como puedo hacer para obtener todos los domingos desde enero de 2010 a diciembre de 2013 y estas fechas colocarlas en un msflexgrid.
gracias.
el formato de la fecha es dia/mes/año
gracias
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:rango de fechas para domingos

Publicado por Pedro Luis (128 intervenciones) el 21/05/2010 08:59:45
Puedes recorrer las fechas desde 1-1-2010 con el formato W.

if format(Fecha,"W")=1, ese día es domingo
y a partir de ahí sumar siete días.
Algo asi

dim fecha as date
fecha="1-1-2010"
Do until format (fecha,"w")=1
fecha=fecha+1
loop

'fecha en este momento es domingo
'si le sumamos siete dias tenemos otro domingo, asi hasta que lleguemos a diciembre de 2013.
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:rango de fechas para domingos

Publicado por harold_m (24 intervenciones) el 21/05/2010 19:55:19
no me funciona como hago para decirle qu eme coloque solo los domingos en la primera columna del flexgrid, solo domingos lo necesito ocn urgencia.
muchas gracias


dim fecha as date
fecha="1-1-2010"
Do until format (fecha,"w")=1
fecha=fecha+1
i=i+1
msflexgrid1.rows=i+1
msflexgrid1.textmatrix(i,0)=fecha
loop
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