Текущий архив: 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.48 MB
Время: 0.008 c
