[CrazyMan86]

вот у меня имеется два DateTimePicker'a.
Необходимо чтобы при создании формы туда автоматом вбивалось первое и последнее число предыдущего месяца.
Можно это как-то сделать с помощью средств делфи - ну чтобы самому функции все эти не писать.

[lmikle]

Код:

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  ADate : TDateTime;
  Y,M,D : Word;
begin
  ADate := Now;
  ADate := IncMonth(ADate,-1);
  DecodeDate(ADate,Y,M,D);
  DateTimePicker1.Date := EncodeDate(Y,M,1);
  DateTimePicker2.Date := EndOfAMonth(Y,M);
end;

Вроде так. Не проверял, но должно работать.