Pierwszy i ostatni dzien miesiaca

0

mam 2 komponenty DateTimePicker i mam pytanie:

jak zrobic by w DateTimePicker1 można bylo wyswietlić w jednym pierwszy dzien a w drugim ostatni dzien aktualnego lub poprzedniego miesiaca.

pozdrawiam
genius23

0

juz znalazlem dla katualanego miesiaca


function LastDayOfMonth(Dat: TDate): TDate;
var D, M, Y: Word;
begin
DecodeDate(IncMonth(Dat, 1), Y, M, D);
Result:= EncodeDate(Y, M, 1) - 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=
FormatDateTime('d-m-yyyy',LastDayOfMonth(DateTimePicker1.Date));
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0