Foros del Web » Programando para Internet » ASP Clásico »

Codigo q me diga los domingos de cada mes

Estas en el tema de Codigo q me diga los domingos de cada mes en el foro de ASP Clásico en Foros del Web. 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: ...
  #1 (permalink)  
Antiguo 14/04/2011, 18:11
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 17 años, 5 meses
Puntos: 0
Codigo q me diga los domingos de cada mes

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.
  #2 (permalink)  
Antiguo 15/04/2011, 10:31
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 5 meses
Puntos: 146
Respuesta: Codigo q me diga los domingos de cada mes

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
  #3 (permalink)  
Antiguo 16/05/2011, 19:50
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 17 años, 5 meses
Puntos: 0
Mensaje Respuesta: Codigo q me diga los domingos de cada mes

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

Etiquetas: Ninguno
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 01:53.