Главная страница
    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.48 MB
Время: 0.007 c
14-1134647613
Хинт
2005-12-15 14:53
2006.01.08
Оптимизация и/или защита DLL


1-1133690439
Сафаров
2005-12-04 13:00
2006.01.08
сообщение об ошибке invalid variant operation


1-1133433853
Дмитрий_05
2005-12-01 13:44
2006.01.08
ListBox убрать рамку в выделенной строке


11-1116458973
AK Delfin
2005-05-19 03:29
2006.01.08
Забавная ситуация с TKolImageList.Delete ()


2-1135158971
Dmitrij_K
2005-12-21 12:56
2006.01.08
MS Word





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский