VPF::Массив дат в интервале - Форум программистов

rcdimon

Дата 15.12.2006, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Всем привет.

Есть две даты

$date1 = '2006-01-01';
$date2 = '2006-04-20';
к примеру....

необходимо получить массив всех дат в этом интервале, включая крайние...

2006-01-01
2006-01-02
2006-01-03
...
...
...
2006-04-19
2006-04-20

Как сделать? smile

заранее благодарен

Добавлено @ 17:40
Вообще алгоритм может быть прост...

Сначала вычисляем на сколько дней отличается одна дата от другой, наприер на 123, а потом в цикле добавляем к начальному.

rcdimon

Дата 15.12.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Короче проблему решил. Сначала хотел использовать всякие модули для работы с датой, или хуже того возможности MySQL по работе с датами... в итоге все обошлось двумя подпрограммками

Одна подпрограмма определяет сколько дней в месяце. Причем она понимает високосные года.

Как узнать високосный год или нет я узнал на Википедии

Код


год является високосным, если он кратен 4 и при этом не кратен 100 либо кратен 400. Год не является високосным, если он кратен 4, но при этом кратен 100 и не кратен 400.

Поэтому получается такая подпрограммка

Код


sub last_day_of_month {
    my $dataref = shift;
    # month
    # year
    # full_date (2006-02-13)

    my ($year, $month);

    if ($dataref->{full_date}){
        my $temp = $dataref->{full_date};
        $temp =~ m/(\d{4})-(\d{1,2})-(\d{1,2})/gm;
        $year = $1;
        $month = $2;
    } else {
        $year = $dataref->{year};
        $month = $dataref->{month};
    }

    if ($month == 1){
        # Январь
        return 31;
    } elsif ($month == 2){
        # Февраль
        # Проверка на високосный год

        if ((!($year % 4)) and (($year % 100) or (!($year % 400)))){
            return 29;
        }
        return 28;
    } elsif ($month == 3){
        # Март
        return 31;
    } elsif ($month == 4){
        # Апрель
        return 30;
    } elsif ($month == 5){
        # Май
        return 31;
    } elsif ($month == 6){
        # Июнь
        return 30;
    } elsif ($month == 7){
        # Июль
        return 31;
    } elsif ($month == 8){
        # Август
        return 31;
    } elsif ($month == 9){
        # Сентябрь
        return 30;
    } elsif ($month == 10){
        # Октябрь
        return 31;
    } elsif ($month == 11){
        # Ноябрь
        return 30;
    } elsif ($month == 12){
        # Декабрь
        return 31;
    }
}

потом я решил написать функцию, которая принимает в качестве параметра дату, а возвращает дату следующего дня

Код


sub inc_date {
    my $dataref = shift;
    #
    # day
    # month
    # year
    # fulldate
    
    my ($year,$month,$day);
    
    if ($dataref->{full_date}){
        my $temp = $dataref->{full_date};
        $temp =~ m/(\d{4})-(\d{1,2})-(\d{1,2})/gm;
        
        $year    = $1;
        $month   = $2;
        $day     = $3;
    } else {
        $year    = $dataref->{year};
        $month   = $dataref->{month};
        $day     = $dataref->{day};
    }
    
    $day++;
    
    if ($day > last_day_of_month({year => $year, month => $month})){
        # Месяц переполнился
        $day = '01';
        $month++;
        if ($month > 12){
            $year++;
            $month = '01';
        }
    }
    
    return $year . '-' . $month . '-' . $day;
}

ну и код основной программы, проще некуда

Код


my $date1 = '2001-01-01';
my $date2 = '2003-04-23';
my $date = $date1;
my @date_mass;
push @date_mass, $date1; 

while ($date ne $date2){
$date = inc_date({ full_date => $date});
   push @date_mass, $date; 
}

print join("\n",@date_mass);

тут правда кроется небольшая опасность. Например если $date2 вообще не является датой, а любой другой сторокой то программа зациклится... А еще она зациклится если $date2 меньше чем $date1... Но это уже другой разговор

результат

Код

Это сообщение отредактировал(а) rcdimon - 15.12.2006, 21:59

rcdimon

Дата 15.12.2006, 22:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

кстати не в оффтоп будет сказано, тут написать еще и валидатор дат... формата YYYY-MM-DD.... Можно конечно напистаь еще функцию, которая понимает кучу других форматов, но сейчас это мне уже не нужно. потому что в программе используется именно такой формат. И любой другой ошибочный

Код


sub date_validator {
    my $dataref = shift;
    # full_date
    
    my $date = $dataref->{full_date};
    if ($date =~ m/(\d{4})-(\d{1,2})-(\d{1,2})/gm){
        if (($2 > 0 and $2 < 13) and ($3 > 0 and $3 <= last_day_of_month({month => $2, year => $1}))){
            return 1;
        }
    }
    return 0;
}

arto

Дата 16.12.2006, 00:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

use Date::Local;
use POSIX qw(strftime);

sub date_interval ($$) {
  my ($b,$e) = ([split "-",$_[0]],[split "-",$_[1]]);
  my ($bb,$ee) = (timelocal (0,0,0,$b->[2],$b->[1]-1,$b->[0]-1900),
                             timelocal (0,0,0,$e->[2],$e->[1]-1,$e->[0]-1900));
  my @ret;
  for (;$bb <= $ee; $bb += 24*60*60) {
    push @ret,strftime "%Y-%m-%d",localtime ($bb);
  }
  return @ret;
}

rcdimon

Дата 16.12.2006, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Какое ужасть... Мне мое больше нравится smile

korob2001

Дата 16.12.2006, 10:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

rcdimon - вот ещё, как вариант. smile

Как ручной, так и с модулем.
http://forum.vingrad.ru/topic-90892/hl/date/index.html

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

rcdimon

Дата 16.12.2006, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Гы. сорьки не искал.. Не думал что у кого-то могла возникнуть такая же задача... Только вот непонятно зачем такой сложный и непонятный код в "ручном" методе? Ведь тут все так просто )

korob2001

Дата 17.12.2006, 07:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Цитата(rcdimon @ 16.12.2006, 20:12

)

Только вот непонятно зачем такой сложный и непонятный код в "ручном" методе? Ведь тут все так просто )

Работает он быстрее. smile

Хотя в данном случае скорость не так критична. Редко тебе понадобится выводить интервалы скажем от 1100 года, до 2007.
У меня, с таким интервалом, твой вариант работает на 6 секунд медленнее.

Это сообщение отредактировал(а) korob2001 - 17.12.2006, 11:08

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »