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

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;

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

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

• Перевод из одной системы счисления в другую
• Как работать с графикой на канве в среде Дельфи. Урок 7-8
• Переполнение при умножении
• Разбить dpr на юниты
• Рассылка. Выпуск 97
• ЗАДАЧИ НА DELPHI И PASCAL
• Наложение png на png
• Простое представление (решение на MSSQL)
• Как откомпилировать программу и получить EXE файл
• Создание большого количества форм или фреймов