ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ilia Vinokurov                       2:5020/400     07 Jun 2005  19:41:42
 To : All
 Subject : Потерялся час :-(
 -------------------------------------------------------------------------------- 
 

 Балуюсь с фунциями времени:
 use Time::Local;
 my $t0='2005-03-27';
 my $t1='2005-04-30';
 my( $y0, $m0, $md0 ) = split(/-/, $t0);
 my( $y1, $m1, $md1 ) = split(/-/, $t1);
 print "$y0-$m0-$md0 $y1-$m1-$md1\n";
 $t0 = timelocal(0,0,0,$md0, ($m0-1), ($y0-1900));
 $t1 = timelocal(0,0,0,$md1, ($m1-1), ($y1-1900));#+60*60*24;
 $dt = 60*60*24;
 print "$dt : $t1 - $t0 = ",($t1-$t0)," ~ ",(($t1-$t0)/$dt),"\n";
 Результат просто убивает:
 2005-03-27 2005-04-30
 86400 : 1114804800 - 1111870800 = 2934000 ~ 33.9583333333333
 Если:
 my $t0='2005-03-28';
 my $t1='2005-04-30';
 То все в порядке:
 2005-03-28 2005-04-30
 86400 : 1114804800 - 1111953600 = 2851200 ~ 33
 Куда делся 1 час ?
 -- 
 С уважением,
        Илья Винокуров
 
 -- 
 С уважением,
        Илья Винокуров 
 --- ifmail v.2.15dev5.3
  * Origin: Comstar United Telesystems ISP (backup server) (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Потерялся час :-(   Ilia Vinokurov   07 Jun 2005 19:41:42   Потерялся час :-(   Tim Kelly   07 Jun 2005 19:06:28