Seleccionar Cumpleañeros

[Camilo]

Hola amigos tengo la siguiente inquietud para ustedes:
En una tabla que llamremos "Tabla_Personas" tengo un campo que se llama "FechaNato" que corresponde a la fecha de nacimiento de las personas. Necesito filtrar a un quickrep las personas que cumplen años dentro del mes vigente; en este caso Febrero.

Trabajo D7 y Paradox.

Muchachos por su gentileza mil gracias

[[eduarcol]]

Solo le debes pasar el párametro mes:

Código SQL [-]
select * from tabla_personas where Extract(Month from FechaNato) = :mes

[Camilo]

Gracias Eduarcol por tu interes y ayuda.
Tengo dos problemas con eso. El primero que me gustaria que el mes fuera el actual, es decir 02 Febrero, 03 MArzo y que lo tomara (Seguramente como parametro) del sistema.
Y dos que commo estan las cosas me sale el mensage Type Mismatch.......

[[eduarcol]]

si hablas de paradox seguro tienes un TQuery, partiendo de eso:

Código Delphi [-]
var
   nAyo, nMes, nDia: double;
begin
   DecodeDate(Date, nAyo, nMes, nDia);
   MiQuery.Active := False;
      MiQuery.sql.Text := 'select * from tabla_personas where Extract(Month from FechaNato) = :mes';
      MiQuery.ParambyName('Mes').AsFloat := nMes;
   MiQuery.Active := True;

end;

[Camilo]

[Error] Unit1.pas(34): Types of actual and formal var parameters must be identical

Me sale ese mensage

[[eduarcol]]

Segun me comentan puedes utilizar asInteger en lugar de asFloat, incluso Value, si nada de esto funciona nos vamos a los extremos

Código Delphi [-]
var
   nAyo, nMes, nDia: double;
begin
   DecodeDate(Date, nAyo, nMes, nDia);
   MiQuery.Active := False;
      MiQuery.sql.Text := 'select * from tabla_personas where Extract(Month from FechaNato) = ' + FloattoStr(nMes);
   MiQuery.Active := True;

end;

[Camilo]

Eduarcol. creo que lo resolvi con una pequeña variacion:

Código Delphi [-]
var
Fecha:Tdate;
Ano, mes, dia: Word;
begin
Fecha:=Now;
DecodeDate(Fecha, ano, mes, dia);
Query1.Active := False;
Query1.sql.Text := 'select * From Tabla_personas where Extract(Month from FechaNato) = :mes';
Query1.ParambyName('Mes').AsFloat := Mes;
Query1.Active := True;

En todo caso muy amable sin tu ayuda.....Imposible para mi.

Gracias.

Corrijo lo de codigo SQL En que estaba pensando? Vi tu nuevo mensaje Eduarcol y aun mas agradecido quedo con tigo.

Abrazos.

[[eduarcol]]

jajaja, ahora si me voy a dormir, el error estaba porq el decodedate espera un word no un double

[Camilo]

Felices Sueños y de nuevo Gracias.