Главная страница
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.012 c
2-1135048842
Максим
2005-12-20 06:20
2006.01.08
TRadioButton


1-1134031227
DimonNew
2005-12-08 11:40
2006.01.08
Формат даты для "разных стран"


8-1123224565
worldmen
2005-08-05 10:49
2006.01.08
Gif-анимация + TAnimate


14-1134372111
Pave/\
2005-12-12 10:21
2006.01.08
Citrix


2-1134909472
з. танька
2005-12-18 15:37
2006.01.08
выгрузить картинку из имаги