|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Smagin 2:5054/60 27 Aug 2002 14:16:22
To : Rostislav Podgornyi
Subject : совпадение времени с периодом
--------------------------------------------------------------------------------
26 Авг 02 19:05, Rostislav Podgornyi wrote to All:
RP> Имеем некий часовой пеpиод (с 23 до 7 часов):
RP> $begin=23; $end=7;
RP> Имеем текущее значение:
RP> $now=5;
RP> Как узнать входит ли $now в вышеуказанный пеpиод или нет? Что-то
RP> никак не могу догнать как это сделать.
$start = 23;
$end = 7;
$now = 5;
period ($start, $end, $now);
sub period($)
{
$s = $_[0];
$e = $_[1];
$n = $_[2];
# Думаю, что число 24 - это порог, не пробовал изменять.
# То есть можно вместо диапазона часов, можно брать
# диапазон минут или секунд.
$e=((abs($e-$s)+$e-$s)/2+24)*abs(0**((abs($s-$e)-$e+$s)/2)-1)+$e;
$n=((abs($n-$s)+$n-$s)/2+24)*abs(0**((abs($s-$n)-$n+$s)/2)-1)+$n;
if (($s <= $n) && ($n <= $e)) { print "ok"; }
else { print "no"; }
}
Sergey (pchat.perm.ru/smagin) Заходи в чат на http://pchat.perm.ru
--- MP3: silence
* Origin: FidoNet: 1355 days, Win: 40h 59m (2:5054/60)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
