Codigo q me diga los domingos de cada mes

[glory82]

Salu2

Tengo un reporte que me debe mostrar unos datos segun un rango de fechas y un tiempo de corte escogido x el usuario.
Ejm: Datos desde el 1 al 30 de Abril en intervalos de domingo a a domingo.
es decir, del 1 al 10 unos datos (porque no puedo dejar x fuera estos datos), luego del 3 al 10 , del 10 al 17 y x ultimo del 17 al 24.

Pensaba en un codigo que me diga la fecha en que cae domingo segun el mes, o un calendario.
Como puedo hacer esto.

Muchas gracias al que me pueda colaborar.

[Myakire]

Cosa de buscar un rato en el foro

http://www.forosdelweb.com/f15/selec...el-ano-139389/
http://www.forosdelweb.com/f15/valid...abiles-824639/

Saludos

[glory82]

Muchas gracias por la respuesta.

Aunque las paginas que me envio no era exactamente lo que necesitaba, me dio una luz para solucionar mi problema. A veces eso es suficiente para hacer las cosas.

Adjunto mi codigo por si alguna vez alguien lo necesita:

Código HTML:

'--ULTIMO DIA DEL MES--
mes = request.form("mes") 
ano = request.form("ano")
	
Select case (Trim(mes))
  case 01: muestra= "ENERO"
	UltMes = 31
  case 02: muestra= "FEBRERO"
	 if ((ano mod 4)=0) and ((ano mod 100)<>0 or (ano mod 400)=0) then
	   'es bisiesto
	    UltMes = 29
	 else 
	     'no es bisiesto
	     UltMes = 28
	 end if	
   case 03: muestra= "MARZO"
	  UltMes = 31
   case 04: muestra= "ABRIL"
	  UltMes = 30
   case 05: muestra= "MAYO"
	  UltMes = 31
   case 06: muestra= "JUNIO"
	  UltMes = 30
   case 07: muestra= "JULIO"
	  UltMes = 31
		case 08: muestra= "AGOSTO"
	  UltMes = 31
  case 09: muestra= "SEPTIEMBRE"
	  UltMes = 30
  case 10: muestra= "OCTUBRE"
	 UltMes = 31
  case 11: muestra= "NOVIEMBRE"
	 UltMes = 30
  case 12: muestra= "DICIEMBRE"
	 UltMes = 31
End select

'----CREA VECTOR CON LOS DIAS DOMINGOS DEL MES ---
dia	 	= 1
FechaInicial 	= ano&"-"&mes&"-"&dia&" "&"21:00"   ' para mostrar
FechaFinal	= ano&"-"&mes&"-"&UltMes&" "&"21:00"  'para mostrar
Fecha 		= ano&"-"&mes&"-"&dia&" "&"21:00" 
a=0	
Dim Domingos(10)

For i = 1 to UltMes 
   DiaAct 	= WeekDayName(Weekday(Fecha))
   if DiaAct = "Sunday" then
	Domingos(a) = Fecha
	a=a+1
   end if
  dia = dia + 1
  Fecha 	= ano&"-"&mes&"-"&dia&" "&"21:00" 
next	
FinalDom = a-1