[05_Lezgi_05]

Помогите пожалуйста. Хочу написать прогу которая будет определять сколько времени осталось до завтрака, обеда и ужина. Причем чтобы время завтрака, обеда и ужина каждый день было разным помогите кто может, а то у меня скоро голова лопнет

[AlexSku]

Вот так реализуются часы:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= TimeToStr(Now); // размер Label (свойство Font) увеличить
end;

Вам нужен таймер (обратный отсчёт). Т.е. от времени завтрака отнимайте Now().

[05_Lezgi_05]

а как отнимать? у меня не получается

[AlexSku]

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

а как отнимать? у меня не получается

Отнимать через минус. Киньте на форму элемент TDateTimePicker, переведите его в режим "время" (Kind = dtkTime) и берите из него время завтрака.

[YVitaliy]

Для времени обьявляешь переменную типа TDateTime

Код:

var Mrm,dMrm:TDateTime;//Mrm - время завтрака, dMrm-сколько осталось до завтрака
begin
Mrm:=EncodeTime(8,31,0,0);//часы, минуты, сек., мс.
dMrm:=Mrm-Now;
label1.caption:=TimeToStr(dMrm);
end;

но только если время завтрака еще впереди и в пределах 1 дня, иначе отсчет будет неверным (не обратным)

или можешь использовать ф-цию DecodeTime(Now, часы, минуты, сек., мс), и потом отнимать по-отдельности часи, минути и секунды времени завтрака от результатов этой функции(процедуры)

[AlexSku]

Для вывода можно ещё использовать разные форматы через функцию FormatDateTime, напр.:

Код:

StaticText1.Caption:= FormatDateTime('t', Time);

[05_Lezgi_05]

Вы знаете что такое рузнама?