Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Июн

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

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;

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

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

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: