Capturar fechas

yomesmo · #1 (**permalink**) 17/01/2007, 07:01

Hola amigos:

Estoy tratando de capturar las fechas que salen como resultado de esta condicional:

if (day(incDate)>=(day(dt_start)) AND day(incDate) <=(day(dt_end))) then ...

Me explico:
Hago un select de una Base de Datos de dos campos de fecha, y necesito saber todas las fechas (En formato de fecha) que existen entre la fecha de inicio (dt_start) y la ficha final (dt_end). Imagino que será con un bucle, pero ya no doy pie con bola.

Si opr ejemplo, la fecha de inicio es: 01/01/2007 y la fecha final es 03/01/2007

quisiera que me mostrara algo así:

fecha 1 = 01/01/2007
fecha 2 = 02/01/2007
fecha 3= 03/01/2007

Agradeceré la ayuda con turrón del duro y botellita de sidra (El sueldo no me da para champán).

Gracias de antemano.

Myakire · #2 (**permalink**) 17/01/2007, 08:21

..... ¿por que no haces un between en la consulta?

yomesmo · #3 (**permalink**) 17/01/2007, 09:18

Gracias Myakire, pero no se trata de hacer un Select de fechas existentes, De hecho no existen registros con fechas intermedias. Tanto la fecha de inicio como la de final están en el mismo registro. Pero tengo una función que se activa cuando incluye una fecha. Las fechas que están entre la de inicio y final no existen como tal, lo que quiero es una rutina que las calcule automaticamente, no sé si me he explicado.

Myakire · #4 (**permalink**) 17/01/2007, 09:31

aaaaaaaaaaaaaaaaaaaaahhhhhhhhhh, ahora si.

a ver, deja hago un ejemplo rapido ....

Myakire · #5 (**permalink**) 17/01/2007, 09:41

Listo, algo rápido:

Código:

<html>
<head>
<title>Page title</title>
</head>
<body>
<form>
  <table>
	  <tr><td>Fecha Inicial:<td><input type="text" name="FechaIni">
	  <tr><td>Fecha Final:<td><input type="text" name="FechaFin">
	  <tr><td colspan="2"><input type="submit" value="Generar Fechas"/>
</form>
<%
if Request("FechaIni") <> "" and Request("FechaFin") <> "" Then
   FechaIni = CDate(Request("FechaIni"))
	 FechaFin = CDate(Request("FechaFin"))
   While FechaIni < FechaFin
	    Response.Write FechaIni & "<br>"
	    FechaIni = DateAdd("d",1,FechaIni)
	 Wend
End If  
%>

</body>
</html>

Saludos

yomesmo · #6 (**permalink**) 17/01/2007, 09:58

Gracias Myakire, creo que esto es lo que andaba buscando, o al menos con esto ya tengo la pista para mi problema.

¿El turrón te lo envío a casa?

3pies · #7 (**permalink**) 17/01/2007, 10:04

A mí me puedes mandar la sidra si quieres, que me acabo de leer este tema entero, y eso debería tener premio

Myakire · #8 (**permalink**) 17/01/2007, 10:36

Gracias, aunque ahora en el foro esta de moda "pagar" (o cobrar, jeje) con puntos mediente ese cuadrito verde/rojo/gris bajo el numero de mensajes, la verdad es que nunca lo he usado

Con el turron virtual me conformo