Подскажите пожалуйста, как задать время в Делфи следующего формата:
20 +- 5 сукунд, ниболее простым способом?

Здравствуйте, sashagol, Вы писали:

S>Подскажите пожалуйста, как задать время в Делфи следующего формата:
S>20 +- 5 сукунд, ниболее простым способом?

нужно сделать что-то типа генератора времени? (ну это randomize наверное)

s> Подскажите пожалуйста, как задать время в Делфи следующего формата:
s> 20 +- 5 сукунд, ниболее простым способом?

что значит +-5?

--
С уважением
Кочмин Александр
Firebird Foundation associate member #257

Здравствуйте, kochmin_alexandr, Вы писали:

s>> Подскажите пожалуйста, как задать время в Делфи следующего формата:
s>> 20 +- 5 сукунд, ниболее простым способом?

_>что значит +-5?


это интервал от 15 до 25

s> Здравствуйте, kochmin_alexandr, Вы писали:
s>
s>>> Подскажите пожалуйста, как задать время в Делфи следующего формата:
s>>> 20 +- 5 сукунд, ниболее простым способом?
s>
s> _>что значит +-5?
s>
s>
s> это интервал от 15 до 25

ну вот сутки это 1
час это 1/24
минута 1/24/60
секунда 1/24/60/60
5 секунд 5/24/60/60
значит получаем
20/24/60/60+-5/24/60/60

или что?


--
С уважением
Кочмин Александр
Firebird Foundation associate member #257

Здравствуйте, sashagol, Вы писали:

S>Подскажите пожалуйста, как задать время в Делфи следующего формата:
S>20 +- 5 сукунд, ниболее простым способом?

Может, функция IncSecond поможет?

Здравствуйте, sashagol, Вы писали:

S>Подскажите пожалуйста, как задать время в Делфи следующего формата:
S>20 +- 5 сукунд, ниболее простым способом?

Загадками изьясняетесь..

Попробую предположить следующий ответ:

uses Math;
...
MySeconds := RandomRange(20 - 5, 20 + 5); // 20+-5 seconds
Timer1.Interval :=  Myseconds * 1000;

И по таймеру случаются нужные события.

Здравствуйте, sashagol, Вы писали:

S>Здравствуйте, kochmin_alexandr, Вы писали:

s>>> Подскажите пожалуйста, как задать время в Делфи следующего формата:
s>>> 20 +- 5 сукунд, ниболее простым способом?

_>>что значит +-5?

S>это интервал от 15 до 25
попробую и я потелепатировать

var
  aTime  : TDateTime;
  aDelta : Integer;
begin
  aTime  := Now;
  aDelta := 15 + Random(10);
  aTime  := aTime + aDelta/24/60/60;
end;