Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

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

 
fast2   (2005-12-16 18:01) [0]

...пределах от 15:00 до 21:00. Т.е. надо это случайное значение присвоить переменной.


 
umbra ©   (2005-12-16 18:07) [1]

можно. надо случайным образом выбрать 4 числа от 15 до 21, от 0 до 59, еще раз от 1 до 60 и от 0 до 999 (часы, минуты, секунды) и с помощью функции EncodeTime получить значение


 
umbra ©   (2005-12-16 18:08) [2]

можно. надо случайным образом выбрать 4 числа от 15 до 21, от 0 до 59, еще раз от 0 до 59 и от 0 до 999 (часы, минуты, секунды) и с помощью функции EncodeTime получить значение


 
clickmaker ©   (2005-12-16 18:10) [3]

Randomize();
i := Random(6);
Time := StrToTime("15:00:00");
Time := Time + double(i) / 24;


 
clickmaker ©   (2005-12-16 18:11) [4]

ежели с точностью до сек
Randomize();
i := Random(21600);
Time := StrToTime("15:00:00");
Time := Time + double(i) / 86400;


 
Leonid Troyanovsky ©   (2005-12-16 18:18) [5]


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


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

--
Regards, LVT.


 
palva ©   (2005-12-16 23:01) [6]


{$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.


 
palva ©   (2005-12-16 23:07) [7]

Извините, не заметил, что такой ответ уже был.


 
Германн ©   (2005-12-17 01:56) [8]

Уже не первый раз вижу в форуме вопросы fast2, но ещё ни разу не заметил какой-либо реакции на ответы от него. Однако, ИМХО.


 
Anatoly Podgoretsky ©   (2005-12-17 12:49) [9]

Надо сменить ник на Диод


 
Separator ©   (2005-12-17 12:55) [10]

одна реакция есть: http://delphimaster.net/view/2-1134752863/
Был пробой


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


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


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


 
fast2   (2005-12-19 10:32) [12]

<Германн ©   (17.12.05 01:56) [8] >

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


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


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


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

--
Regards, LVT.

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



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.024 c
9-1122572178
Kslaruovon
2005-07-28 21:36
2006.01.08
Анимация в Opengl


3-1131961081
Kurillka
2005-11-14 12:38
2006.01.08
Как сгруппировать след. запрос?


3-1131967989
Max Zyuzin
2005-11-14 14:33
2006.01.08
SQL запрос выполняется непонятно как...


14-1134455289
Гриха
2005-12-13 09:28
2006.01.08
Блок Инета


2-1135223968
kaginava
2005-12-22 06:59
2006.01.08
MDIForm