como hacer consulta SQL con fecha usando Between

[marcoszorrilla]

Bienvenido Eduardo:

Para el mes actual, prueba a utilizar las funciones DecodeDate y EncodeDate.

Código Delphi [-]
 Var
 dia,mes,anno:Word;
 begin
 DecodeDate(Date,anno,mes,dia);
 EncodeDate(anno,mes,1);
 //así tienes el día uno del mes actual
 end;

Para el final de mes, incrementas el mes en 1, pones el día en 1,le restas uno y tienes el final de mes.

Un Saludo.

[MaSSaKKre]

compañero marcoszorrilla, muchisimas gracias por su ayuda, me ha servido de mucho

Ya me las iré arreglando con la otra consulta, solo es cuestion de ajustes, muchas gracias.

espero en algun momento poder devolverte el favor

[Chente(rMan)]

que tal MaSSaKKre, una pregunta que BD utilizas, ya se que es SQL pero, ¿podrias ser un poco mas específico?.


¿tu BD no acepta la función moth ?.

porque tambien lo podrias generar así:

Código SQL [-]
where month( size="1">FECHAULTIMAINFRACCION) =: Mes

algo pasa, mejor te lo pongo tambien por fuera, ya que me pone algo de size

where month( FECHAULTIMAINFRACCION) =: Mes

Saludos.

Vicente López.
Tambien de México.

[MaSSaKKre]

hola chente,...

si, mira mi consulta quedo lista anoche gracias a la ayuda de mascorrilla y quedo asi

 
VAR
MAS,SUM,MENOS:tdatetime;
dia,mes,anno:Word;
 begin
 DecodeDate(Date,anno,mes,dia);
MAS:=EncodeDate(anno,mes,1);   //GUARDANDO MES ACTUAL CON DIA 1
SUM:=IncMonth(MAS,1);//SUMANDOLE UN MES AL MES ACTUAL
MENOS:=SUM-1;		//RESTANDOLE UN DIA AL MES ACTUAL+1 (OSEA MES SIGUIENTE AL ACTUAL)
EDIT1.TEXT:=DATETOSTR(MAS);
EDIT2.TEXT:=DATETOSTR(MENOS);
QUERY4.CLOSE;
QUERY4.Params[0].AsDate := MAS;
QUERY4.Params[1].AsDate := MENOS;
QUERY4.OPEN;

y el código en sql me quedo asi

  
SELECT CONTEOINFRACCIONES.NUM_CONDUCTOR,FOLIOULTIMAINFRACCION,INFRACCION.NUMFOLIO, FECHAULTIMAINFRACCION, VECESINFRACCIONADO,NOMBRE, APE_PAT,APE_MAT,CONDUCTOR.NUM_CONDUCTOR, LICENCIA, NUMFOLIO, STATUS, FECHAINFRACCION, NUMINFRACCION

FROM CONTEOINFRACCIONES, CONDUCTOR, INFRACCION

WHERE VECESINFRACCIONADO>=1 AND CONTEOINFRACCIONES.NUM_CONDUCTOR = CONDUCTOR.NUM_CONDUCTOR AND FOLIOULTIMAINFRACCION=NUMFOLIO AND STATUS ='NO PAGADO' AND FECHAULTIMAINFRACCION BETWEEN :FECHAMAS AND :FECHAMENOS

muchas gracias por tu interes en ayudarme amigo.
Estoy usando Delphi 5... ahi arribita lo especifiqué, solo que como la page se hace muy grande, entonces no se alcanza a ver.

por cierto ando con otro problemita en una consulta, pero aun me sigo calentando la cabeza, creo que cuando ya de plano no pueda tendre que dar un grito de ayuda jejejeje
Eduardo...
Saludos