[AlexSku]

Сообщение от 05_Lezgi_05

Я не прошу вас ни о чем кроме как о помощи в написании программы. И никто не должен кому то что-то доказывать

Да, друг, здесь собираются только программисты. И пока ты не покажешь хотя бы попытку своего программирования, то будешь пользоваться обычным будильником.

[U.B.M.]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  hh, mm, ss, zzz : Word;
  delta : Integer;
  time_interval : TTime;
begin
  DecodeTime(Now, hh, mm, ss, zzz);

  delta := (необходимый час*3600 + необходимая минута*60) -
           (hh*3600 + mm*60 + ss);
  time_interval := EncodeTime(delta div 3600, delta div 60, delta mod 60, 0);
  label1.caption := TimeToStr(time_interval);
end;

само собой, delta должна быть неотрицательной.

[angvelem]

Сообщение от 05_Lezgi_05

Так, я помню этот факт, вот он: "Нет бога кроме Аллагьа, и Мухаммад пророк его!!!" вот так правильнее

ЗЫЖ За теологическую пропаганду (то что в квоте) карать буду как Торквемада ничуть не задумываясь, сорри если чо...

Прекращайте флудить и менять ваше сообщение по 3 раза. Кроме высокопарных словоизлияний, других попыток показать код не было.

[angvelem]

Вряд ли этот код устроит ТС, я когда рылся в поиске нашёл много чего по расчёту этого расписания. При этом существует как минимум 7 методик расчёта и каждая методика даёт другое время.

[05_Lezgi_05]

Сообщение от angvelem

Прекращайте флудить и менять ваше сообщение по 3 раза. Кроме высокопарных словоизлияний, других попыток показать код не было.

Это я чужое сообщение изменил. Просто там не очень хорошие слова были написаны

[05_Lezgi_05]

у кого-нибудь что-нибудь получилось?

[U.B.M.]

Сообщение от 05_Lezgi_05

у кого-нибудь что-нибудь получилось?

Нет, а должно?

P.S. Тут есть раздел "Работа" - сделают всё, что угодно в зависимости от оплаты.