Iniciar DateTimePicker en primer día del mes

[egarc]

Buenas chicos, tengo un inconveniente y es que quiero poner a un datetimepicker el primer día del mes y tambien quiero saber como poner el último día.

Estas dos fechas las pasaré como parámetro a un sentencia sql que ya esta hecha.

Les agradesco de antemano su colaboracion

[jhonny]

Partiendo de la base de que conoces una fecha (la llamare fecha) entonces quedaría así:

Código Delphi [-]
var
  mes, dia, ano :Word;
begin
  decodedate(fecha, ano, mes, dia);
  fecha := encodeDate(ano, mes, 1);  
end;

y de esa manera tendrías el primer día de ese mes, y para el otro caso, la cosa seria mas o menos así:

Código Delphi [-]
var
  mes, dia, ano :Word;
begin
  decodedate(fecha, ano, mes, dia);
  fecha := encodeDate(ano, mes, DaysInAMonth(ano, mes));  
end;

Espero te sirva.

[ContraVeneno]

Código Delphi [-]
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec, Days: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  dtpIni.DateTime:=EncodeDate(Year,Month,1);
  dtpFin.DateTime:= dtpIni.DateTime+DaysInAMonth(Year, Month);
  //o tambien
  dtpFin.DateTime:= DecodeDate(Present, Year, Month, DaysInAMonth(Year, Month);

---edit
Que rapidez amigo Jhonny

[egarc]

Gracias chicos, por responder tan rápido, ya resolví mi problema GRACIAS

[yusnerqui]

Otro:

Código Delphi [-]
DateTimePicker1.Date:=    Now-DayOf(now)+1;
DateTimePicker2.Date:=   Now+  (DaysInMonth(now)-DayOf(now));

Saludos