Re: Операции с датой

["Oleg Gashev" <gashev@gmail.com>]

Приветствую!

2008/9/27 Serhiy Storchaka <storchaka@gmail.com>:
> San_Sanych wrote:

>
> И остаётся открытым вопрос о вычислении разницы дат.

Например:

#/usr/bin/perl

use strict;
use warnings;

use POSIX;

my @time = localtime;
my $today_unix_time = mktime(@time);
my $today = localtime($today_unix_time);

($time[3], $time[8]) = ($time[3] + 10, 0);

my $plus_10_days_unix_time = mktime(@time);
my $plus_10_days = localtime($plus_10_days_unix_time);
my $diff = floor(($plus_10_days_unix_time - $today_unix_time)/(60*60*24));

print "Today: $today\n+10 Days: $plus_10_days\nDiff: $diff days\n";

oleg@debian:~$ perl date.pl
Today: Wed Oct  1 11:26:37 2008
+10 Days: Sat Oct 11 11:26:37 2008
Diff: 10 days

-- 
Best regards, Oleg Gashev.