Seleccionar fechas con un combo mes y otro combo año...

[JairoC]

Hola gente del foro... Estoy haciendo una consulta de Ganancias y quiero seleccionar las fechas:

Tengo 4 Combobox: Combobox_MesUno, Combobox_AnioUno, Combobox_MesDos y Combobox_AnioDos... La base de datos en Firebird y Uso Query, Datasourse, Dataset...

Quiero que al seleccionar por ejemplo: ENERO 2012 Y ENERO 2013 Me seleccione en el campo FECHA, 01/01/2012 al 31/01/2012 y 01/01/2013 al 01/01/2013...Y de allí hago las sumas necesarias.., No se me ocurre como hacerlo... Si me pueden ayudar se los agradecería....
Un saludo!!!

[ecfisa]

Empezado por JairoC

...
Quiero que al seleccionar por ejemplo: ENERO 2012 Y ENERO 2013 Me seleccione en el campo FECHA, 01/01/2012 al 31/01/2012 y 01/01/2013 al 01/01/2013..

Hola JairoC.

No me queda claro como es el criterio a aplicar...

En estos ejemplos:
1) Desde: ENERO 2012 - Hasta: JULIO 2012
2) Desde: AGOSTO 2012 - Hasta: ABRIL 2013

¿ Que rango debería seleccionar ?

Saludos.

[MAXIUM]

Puedes usar las funciones para componer y descomponer fechas.

Con esto tambien puedes usar la sentencia SQL betwen.

[JairoC]

Ejemplos: TENGO 4 Combos nada más...

Combo1= ENERO Combo2=2012
Combo3=JULIO Combo3=2012


Quiero que en una consulta me seleccione Todo el mes de ENERO 2012 (01/01/2012 al 31/01/2012) y todo el mes de JULIO 2012 (01/07/2012 AL 31/07/2012)

[ecfisa]

Empezado por JairoC

Ejemplos: TENGO 4 Combos nada más...

Combo1= ENERO Combo2=2012
Combo3=JULIO Combo3=2012


Quiero que en una consulta me seleccione Todo el mes de ENERO 2012 (01/01/2012 al 31/01/2012) y todo el mes de JULIO 2012 (01/07/2012 AL 31/07/2012)

Ejemplo:

Código Delphi [-]
...
uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 12 do
  begin
    cboxMesDesde.Items.Add(LongMonthNames[i]);
    cboxMesHasta.Items.Add(LongMonthNames[i]);
  end;
  for i := 2005 to 2013 do
  begin
    cboxAnioDesde.Items.Add(IntToStr(i));
    cboxAnioHasta.Items.Add(IntToStr(i));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dd,md,yd : Word;
  dh,mh,yh : Word;
  FDesde, FHasta: TDate;
begin
  // desde
  dd := 1;
  md := cboxMesDesde.ItemIndex + 1;
  yd := StrToInt(cboxAnioDesde.Items[cboxAnioDesde.ItemIndex]);
  // hasta
  yh := StrToInt(cboxAnioHasta.Items[cboxAnioDesde.ItemIndex]);
  mh := cboxMesHasta.ItemIndex + 1;
  dh := DaysInAMonth(yh, mh);
  // a tipo TDate
  FDesde := EncodeDate(yd, md, dd);
  FHasta := EncodeDate(yh, mh, dh);

  ShowMessage(Format('Desde: %s - Hasta: %s',
    [DateToStr(FDesde),DateToStr(FHasta)]));
end;

Saludos.

[TiammatMX]

Pregunta, ¿y por qué no en lugar de CUATRO TComboBox'es, usas DOS TDateTimePicker's? Finalmente, te interesa solamente la parte de mes y año..., además que se vería más profesional y entendible.