Начало и конец месяца в Delphi - 3 Декабря 2012 - Сайт заготовки для Дельфи&Pascal

Главная » 2012 » Декабрь » 3 » Начало и конец месяца в Delphi

08:04 Начало и конец месяца в Delphi
последний день месяца Delphi function LastDayOfCurrentMonth: TDate; var y, m, d: Word; begin DecodeDate(now, y, m, d); m := m + 1; if m >12 then begin y := y + 1; m := 1; end; Result := EncodeDate(y, m, 1) - 1; end; // первый день месяца Delphi Function FirstDayCurrentMonth:Tdate; var y, m, d: Word; begin DecodeDate(now, y, m, d); Result := EncodeDate(y, m, 1); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(DateToStr(FirstDayCurrentMonth)); // дата начала действия ShowMessage(DateToStr(LastDayOfCurrentMonth)); end;
1 2 3 4 5 Просмотров: 4829 \| Добавил: NetSoftWare \| Рейтинг: 5.0/1

Delphi заготовки