DatetimePicker buscar desde hasta en SQL

[giantonti1801]

Empezado por duilioisola

No entiendo la petición... ya está creado en el ejeplo:
Lo único que debes revisar es si el SQL es el que deseas.

Código Delphi [-]
procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
  LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end;                                                                  |
                                                                      |
procedure TFormConsulta.DateTimePicker2Change(Sender: TObject);       |
begin                                                                 |
  LabelHasta.Caption := DateToStr(DateTimePicker2.Date);              |
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end;                                                                  |
                                                                      |
procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime); <<<----------+
begin
  /// Modifico la hora de las fechas para abarcar el dia completo
  /// DESDE = dd/mm/yyyy **00:00:00**
  /// HASTA = dd/mm/yyyy **23:59:59**

  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from Tiket');
  ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
  ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
  ADOQuery1.Open;
end;

Exactamente pero no se como hacer para crear un procedimiento nuevo ya que en lo que usted envía está creando un procedimiento nuevo

Código Delphi [-]
procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime)

este procedimiento no puedo copiarlo de aqui y pegarlo en el Unit porque me da problema asumo que debo crear el procedimiento manualmente para luego llamarlo y es justamente esto que no se como hacerlo. aunque lo busque por todo lado pero no encontré nada.

[[duilioisola]]

Vale, entiendo tu problema.
Debes copiarlo a tu unit y luego ponerlo en la definicion de la clase TFormConsulta dentro de la parte private o public.

• private: solo se podrá utilizar dentro de la clase (a efectos prácticos, no podrás llamarlo desde otros sitios)
• public: otros objetos podrán llamarlo mediante TFormConsulta.Filtrar(...).

Ejemplo para un formulario llamado "Form1" que en su parte privada define el procedimiento Filtrar().
Si quieres más información deberás aprender qué significa interface (donde se define lo que hay en la unidad) / implementation (donde se implementa el codigo que ejecuta cada cosa definida).

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Filtra(Desde, Hasta: TDateTime);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Filtra(Desde, Hasta: TDateTime);
begin
  [...]
end;

end.

[giantonti1801]

Empezado por duilioisola

Vale, entiendo tu problema.
Debes copiarlo a tu unit y luego ponerlo en la definicion de la clase TFormConsulta dentro de la parte private o public.

• private: solo se podrá utilizar dentro de la clase (a efectos prácticos, no podrás llamarlo desde otros sitios)
• public: otros objetos podrán llamarlo mediante TFormConsulta.Filtrar(...).

Ejemplo para un formulario llamado "Form1" que en su parte privada define el procedimiento Filtrar().
Si quieres más información deberás aprender qué significa interface (donde se define lo que hay en la unidad) / implementation (donde se implementa el codigo que ejecuta cada cosa definida).

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Filtra(Desde, Hasta: TDateTime);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Filtra(Desde, Hasta: TDateTime);
begin
  [...]
end;

end.

Muchas gracias por tu paciencia, efectivamente lo hice tal cual como tu me explicaste, pero tengo un problema con

Código Delphi [-]
[dcc64 Error] UnitConsulta.pas(242): E2003 Undeclared identifier: 'RecodeTime'

posiblemente yengo que declarar el recordtime en algun lado.

Código Delphi [-]
procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime);
begin
  /// Modifico la hora de las fechas para abarcar el dia completo
  /// DESDE = dd/mm/yyyy **00:00:00**
  /// HASTA = dd/mm/yyyy **23:59:59**

  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from Tiket');
  ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
  ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
  ADOQuery1.Open;
end;

[[duilioisola]]

RecodeTime es una función de la unidad DateUtils (Por lo menos en Delphi 6).
Deberás agregar esa unidad a tu cláusula uses.

Si no existe esa unidad, prueba poniendo el cursor sobre RecodeTime y presiona F1.
Te llevará a una página de ayuda donde seguramente te indicará a qué unidad pertenece.

Buscando en Internet:
https://docwiki.embarcadero.com/Libr...ils.RecodeTime

System.DateUtils.RecodeTime

Up to Parent: System.DateUtils

Delphi

function RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;

C++

extern DELPHI_PACKAGE System::TDateTime __fastcall RecodeTime(const System::TDateTime AValue, const System::Word AHour, const System::Word AMinute, const System::Word ASecond, const System::Word AMilliSecond);

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, 
  {***}DateUtils{***};
  // o 
  {***}System.DateUtils{***};

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Filtra(Desde, Hasta: TDateTime);
  public
    { Public declarations }
  end;

[...]

[giantonti1801]

Empezado por duilioisola

RecodeTime es una función de la unidad DateUtils (Por lo menos en Delphi 6).
Deberás agregar esa unidad a tu cláusula uses.

Si no existe esa unidad, prueba poniendo el cursor sobre RecodeTime y presiona F1.
Te llevará a una página de ayuda donde seguramente te indicará a qué unidad pertenece.

Buscando en Internet:
https://docwiki.embarcadero.com/Libr...ils.RecodeTime

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, 
  {***}DateUtils{***};
  // o 
  {***}System.DateUtils{***};

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Filtra(Desde, Hasta: TDateTime);
  public
    { Public declarations }
  end;

[...]

Excelente, Muy bien de verdad eso soluciono el problema que tenía, ya funciona a la perfección, GRACIAS por tu paciencia y dedicación.