Ayuda con Fechas

[dec]

Hola,

Código Delphi [-]
uses
  DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date := StartOfTheMonth(Date);
  DateTimePicker2.Date := EndOfTheMonth(Date);
end;