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

[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.