|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor Ivlev 2:467/116.9 21 Jun 2001 15:26:12
To : Artem Bednarchuk
Subject : работа со временем
--------------------------------------------------------------------------------
Мои бортовые системы запеленговали, что в 17 июня 2001 21:49, Artem Bednarchuk
писал All:
AB> Есть ли стандартные функции позволяющие определить разницу между двумя
AB> переменными содержащими время, т.е
AB> $t1=13:15:47;
AB> $t2=18:15:35;
AB> как найти разницу в часах,минутах и секундах между $t2 и $t1 через
AB> стандартные функции?
@t1=split(/:/, $t1);
@t2=split(/:/, $t2);
for ($i=0, $i<4, $i++){
if ($t1[$i]>$t2[$i]){
$razn[$i]=$t1[$i]-$t2[$i];
}else{
$razn[$i]=$t2[$i]-$t1[$i];
}
print "Разница в часах:";
print $razn[0];
print "\n";
print "Разница в минутах:";
print $razn[1];
print "\n";
print "Разница в секундах:";
print $razn[2];
print "\n";
IMHO, будет работать...
C уважением, Igor Ivlev.
... : silence (Winamp is not active ;-)
--- Утверждено старым, дряхлым Дедом
* Origin: Вам от меня лично маленький сувенир! (2:467/116.9)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
работа со временем 