Вниз
Скачать: CL | DM;

Время   Найти похожие ветки 

← →
Lvs   (2004-06-01 23:53) [0]

Как можно получить случайное время?
Например есть два значения - 23:15 и 02:13
Мне надо получить случайное время входящее в этот промежуток.
пример - 23:45, 01:10....
Сужествуют-ли библиотеки для работы со временем?

Icq# 341948006. fido:2:5020/2015.17


← →
ViPer   (2004-06-02 00:04) [1]

вставь "uses DateUtils" и смотри в хелпе "datetime routines".


← →
Anatoly Podgoretsky ©   (2004-06-02 00:06) [2]

Есть, плюс и деление.


← →
KilkennyCat ©   (2004-06-02 00:54) [3]

var
 t1, t2, rndt : integer;
begin
 t1 := "23" * 60 + "15";
 t2 := "02" * 60 + "13";
 if t1 > t2 then begin
   rndt := random(1440 - t1 + t2) - (1440 - t1);
   if rndt < 0 then rndt := rndt + 1440;
 end else rndt := random(t2 - t1) + t1;
 ответ := trunc(rndt / 60) + : + rndt - trunc(rndt / 60);

не проверял, но смысл прост - переводим в минуты, смещаем одну границу диапазона к нулю, потом возвращаем границу и преводим в часы и минуты.... 1440 - это 24 * 60



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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.96 c
6-1082878311
барбос
2004-04-25 11:31
2004.06.13
Как добавить ,библиотеку (MSHTML_TLB) как ActiveX, в секцию uses?


14-1085862499
тихий вовочка
2004-05-30 00:28
2004.06.13
Кто-либо работал с TZipMaster


1-1085839453
rrew
2004-05-29 18:04
2004.06.13
Печать текста в определенных местах листа


14-1085176317
lak
2004-05-22 01:51
2004.06.13
http://www.artlebedev.ru


14-1085040996
Dmitriy O.
2004-05-20 12:16
2004.06.13
Скажите а у всех все так тормозит сдесь ?




   Наверх