Найти те даты, когда день рождения попадает на тот же день

Posted by obzor under Delphi, Pascal

Дана дата рождения и день недели на, который она попадает. Найти те даты, когда день рождения попадает на тот же день.

newerow1989

procedure TForm1.Button1Click(Sender: TObject);
const dni:array[1..7] of string=('вс','пн','вт','ср','чт','пт','сб');
var i,a,b:integer;
    dat,dn:string;
    dt:tDateTime;
begin
   dat:=Edit1.Text;//23.06
   dn:=Edit2.Text;//чт
   a:=StrToInt(Edit3.Text);//2000
   b:=StrToInt(Edit4.Text);//2100
   ListBox1.Clear;
   For i:=a to b do
   begin
      dt:=StrToDateTime(Format('%s.%d',[dat,i]));
      If dni[DayOfWeek(dt)]=dn then
         ListBox1.Items.Add(FormatDateTime('dd.mm.yyyy - ddd',dt));
   end;
end;

тема на форуме

Случайные статьи

• Реализовать построение графика по заданному математическому закону: A(n) = A(n-1) + (1/m)*СO
• Первое приложение на c#
• Ping на Delphi
• Решение задач на циклические алгоритмы в Visual Basic 6.0
• Как сделать скрин активной программы
• Передача данных между MDI окнами
• Нужен ли CloseHandle?
• Изменение рисунков на кнопках BitBtn
• Рассылка. Выпуск 167
• Самоучитель Delphi 7