Автор Тема: Количество дней между двумя датами  (Прочитано 2149 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Lexx

  • Гость
Есть переменная $s, она содеражи дату, например $s = "12.12.2001".
Как определить старее ли дата в $s на 100 дней и более, чем сегодняшняя (текущая) дата?

Оффлайн vladsu

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 271
  • +0/-0
  • 0
    • Просмотр профиля
    • http://vladislavsurguchev.eu/
Количество дней между двумя датами
« Ответ #1 : 08 Апреля 2003, 19:42:40 »

use strict;
use Time::Local;

my $s = "2002-01-09";
my $shift = -100;

my ($year,$month,$day) = $s =~ /(\\d{4})-(\\d{2})-(\\d{2})/;

print "y" if (time+$shift*86400 > timelocal(00,00,00,$day,$month-=1,$year-=1900));

#time+$shift*86400 > timelocal(00,00,00,$day,$month-=1,$year-=1900) ? print "y" : print "n";

----------------------------------------------
Мой сайт чёрно-белых фотографий из разных уголков мира тут

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28