Интервал Timer'a перевести на Min

[Rebel123]

Доброго Времени Суток Уважаемые ПРОграммисты. Интересует следующее:
Я хочу назначить Интревалу 5 мин, но как сами знаете 1сек=1000, думаю 5 мин паревно писать и умножать его на калькуляторе! по моему есть способ как-то обозначить его в минутах, если не ошибаюсь надо объявлять переменную (допустим min) типа Integer!? можете мне помочь пожалуйста! буду благодарен!

[Вавел из ГМТУ]

Что?

5 мин = 60 сек * 5 = 300 сек.....
300 * 1000 = 300000........

***.Interval := 300000;

[s.Creator]

const
  MSecsPerMin = 60 * 1000;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 5 * MSecsPerMin;
end;

[Altera]

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

Доброго Времени Суток Уважаемые ПРОграммисты. Интересует следующее:
Я хочу назначить Интревалу 5 мин, но как сами знаете 1сек=1000, думаю 5 мин паревно писать и умножать его на калькуляторе! по моему есть способ как-то обозначить его в минутах, если не ошибаюсь надо объявлять переменную (допустим min) типа Integer!? можете мне помочь пожалуйста! буду благодарен!

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

[s.Creator]

По моему Rebel123 для себя вопрос поставил правильный, только сформулировал его немного не так.
Дело не в умении переводить минуты в миллисекунды в уме, а в наглядности кода.
Когда откроете даже свой проект годичной давности то одного взгляда на строку
Timer1.Interval := 5 * MSecsPerMin;
хватит чтобы понять что таймер на 5 минут.

[Rebel123]

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

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

Это не вам решать зачем мне в кодинге разбираться или не разбираться, я же вас об этом не спрашивал! а зачем мне умножать когда можно обозначить в минуты?! и у меня не только 5 мин будет но и 5 часов! 2 часа, 45 мин и т.д! думаю все таки умножение тут будет занимать больше времени нежели просто обозначить в минутах!

[Пепел Феникса]

таймер принимает миллисекунды и точка.

5 часов = 18000000
еще влезет.
можно вообще функу сделать что в нее пишешь час/минуты/секунды/миллисекунды она вернет значение в миллисекундах

[s.Creator]

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

просто обозначить в минутах!

Похоже я пасс

Даже если написать функцию или функции ( типа IntervalInMin(colMin: Integer):Integer; ) то без умножения все равно не обойтись.

[evg_m]

const
  MSecsPerMin = 60 * 1000;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 5 * MSecsPerMin;//такие вычмсления выполняются во время трансляции(компилции) программы а не во время кее выполнения
rnd;

и в прорамму подставляется уже ВЫЧИСЛЕННОЕ значание

[Altera]

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

Это не вам решать зачем мне в кодинге разбираться или не разбираться, я же вас об этом не спрашивал! а зачем мне умножать когда можно обозначить в минуты?! и у меня не только 5 мин будет но и 5 часов! 2 часа, 45 мин и т.д! думаю все таки умножение тут будет занимать больше времени нежели просто обозначить в минутах!

Вот глупости пишешь ну... Ты пишешь алгоритм, а компьютер за тебя считает. Лучше всё в миллисекунды переводить, ну или в секунды.

Например нужен интервал 8 часов, 32 минуты и 59 секунд. Как перевести его в миллисекунды?
Отвечаю:

function toMilliSeconds(const aHours, aMinutes, aSeconds: byte): cardinal;
begin
   result := (aHours*3600 + aMinutes*60 + aSeconds)*1000;
end;
...
timer1.interval := toMilliSeconds(8, 32, 59); // интервал получится 30 780 000

Есть ещё что-то не понятное по этой теме?