Главная страница
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.014 c
6-1127661263
AlCache
2005-09-25 19:14
2006.01.08
IdHTTP1.Get, я что-то делаю неправильно?


14-1134571355
Piter
2005-12-14 17:42
2006.01.08
Прикольный домен


4-1131016966
Ромка
2005-11-03 14:22
2006.01.08
Серийный номер материнки


4-1130766908
Зм1й
2005-10-31 16:55
2006.01.08
Сообщение деактивации


14-1134548344
Lost_delpher
2005-12-14 11:19
2006.01.08
конверт TDateTime - DOUBLE - разные рез-ты