Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как можна задать случайным образом время в ... [D7, 95/98]

fast2 © (2005-12-16 18:01:00)
...пределах от 15:00 до 21:00. Т.е. надо это случайное значение присвоить переменной.

Leonid Troyanovsky (2005-12-19 11:00:00) [1]

> fast2 (19.12.05 10:32) [12]
> Германн © (17.12.05 01:56) [8]

Хамишь, парниша.

--
Regards, LVT.

ЗЫ Вот так и Диод :)

fast2 (2005-12-19 10:32:00) [2]
<Германн © (17.12.05 01:56) [8] >

А что ты хочешь получить в ответ? Благодарность? Дык зачем она тебе? Ее в карман не положешь

Германн (2005-12-18 02:55:00) [3]

> Anatoly Podgoretsky © (17.12.05 12:49) [9]
>
> Надо сменить ник на Диод
>

Не. Ну когда Штепсель предлагал изменить свой псевдоним на Диод, я ещё понимаю смысл. Ведь там было ХХХ и Штепсель. А тут кого нужно обозвать? :-)

Separator (2005-12-17 12:55:00) [4]
одна реакция есть: http://www.delphimaster.ru/cgi-bin/forum.pl?id=1134752863&n=18
Был пробой

Anatoly Podgoretsky (2005-12-17 12:49:00) [5]
Надо сменить ник на Диод

Германн (2005-12-17 01:56:00) [6]
Уже не первый раз вижу в форуме вопросы fast2, но ещё ни разу не заметил какой-либо реакции на ответы от него. Однако, ИМХО.

palva (2005-12-16 23:07:00) [7]
Извините, не заметил, что такой ответ уже был.

palva (2005-12-16 23:01:00) [8]
{$APPTYPE CONSOLE} uses SysUtils; const t1 = 15/24; t2 = 21/24; var t: TDateTime; begin Randomize; t := t1 + Random * (t2 - t1); Writeln(TimeToStr(t)); end.

Leonid Troyanovsky (2005-12-16 18:18:00) [9]

> fast2 (16.12.05 18:01)
> ...пределах от 15:00 до 21:00. Т.е. надо это случайное значение

t:= (15 +(21-15)*Random)/24;

--
Regards, LVT.

clickmaker (2005-12-16 18:11:00) [10]
ежели с точностью до сек
Randomize();
i := Random(21600);
Time := StrToTime('15:00:00');
Time := Time + double(i) / 86400;

clickmaker (2005-12-16 18:10:00) [11]
Randomize();
i := Random(6);
Time := StrToTime('15:00:00');
Time := Time + double(i) / 24;

umbra (2005-12-16 18:08:00) [12]
можно. надо случайным образом выбрать 4 числа от 15 до 21, от 0 до 59, еще раз от 0 до 59 и от 0 до 999 (часы, минуты, секунды) и с помощью функции EncodeTimeполучить значение

umbra (2005-12-16 18:07:00) [13]
можно. надо случайным образом выбрать 4 числа от 15 до 21, от 0 до 59, еще раз от 1 до 60 и от 0 до 999 (часы, минуты, секунды) и с помощью функции EncodeTimeполучить значение

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »