функции даты

[@mazonk@]

Доброго времени суток! Помогите создать процедурку, которая по дню недели создаст список дат.
Например, у меня есть 5 checkbox, соответствующие дням неделям, потом определяем промежуток на который нам надо определить даты (пример-10, программно задается). и начиная с текущей даты надо вывести даты соответствующее дням неделям по checkbox.

[evg_m]

F1 Day of Year Month Week

[@mazonk@]

я с этой функцией и работаю, не пойму как мне организовать цикл...

[phomm]

Распишите пример данных , что на вход подаете и то, что должно получиться на выходе

[@mazonk@]

dat := date();
for kol := 1 to 31 do // количество дней, на которое определяются даты от текущей
If CheckBox1.Checked = true then
If DayOfTheWeek(Dat) = 1 then // для понедельника. И так для каждого дня недели
begin
Memo1.Lines.Add(DateToStr(Dat));
dat := dat + 1;
end
else
begin
dat := dat + 1;
end;

это работает для понедельника, и для вторника будет работать, т.е. по отдельности для каждого дня недели. Как мне соединить их один цикл?...

[Serge_Bliznykov]

я бы предложил такой вариант:

unit DateExampleUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    cbDayWeek: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var Year, Month, Day : word;
begin
  DecodeDate(Date, Year, Month, Day);
  DateTimePicker1.Date := EncodeDate(Year, Month, 1);
  DateTimePicker2.Date := IncMonth(DateTimePicker1.Date, 1)-1;
  cbDayWeek.ItemIndex := 0;
end;

function DayOfTheWeek(DateTime : TDateTime) : word;
const ISOFirstWeekDay = 2; {неделя по ISO начинается с понедельника}
begin
  DayOfTheWeek := ((DayOfWeek(DateTime) - ISOFirstWeekDay + 7) mod 7) + 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var dat : TDateTime;
    IncrementValue : integer;
begin
  Memo1.Lines.Clear;
  dat := DateTimePicker1.Date;
  IncrementValue := 1; //на сколько дней увеличивать дату...
  while dat <= DateTimePicker2.Date do begin
    if DayOfTheWeek(Dat) = (cbDayWeek.ItemIndex + 1) then begin
       Memo1.Lines.Add(DateToStr(Dat));
       IncrementValue := 7; // нашли нужный день недели, теперь через каждые 7 дней
    end;
    dat := dat + IncrementValue;
  end;
end;


end.

полные исходники в приложении (и отдельно EXEшник)

[@mazonk@]

спасибо за помощь разобралась