3.5. Вычисление разности между датами 101

55 ♦ 60 * 60 . 24, » и 55 дней $then = Sbirthtime + $interval, print Then is ", scalar(localtime($then)), \n , Then is Wed Mar 14 06:02:55 1973

Мы также могли воспользоваться функцией Adcl Delta DHMS и o6oiiTncb без преобразований к секундам с начала эпохи и обратно:

иье Date Calc qw(Add Delta DHMS),

(Syear, Smonth Sday, $hh, $mm, Sss) = Add Delta OHMS(

1973, 1, 18, 3, 45, 50, # 18 января 1973 года, 03 45 50

55, 2, 17, 5), # 55 дней, 2 часа, 17 минут, 5 секунд print То be prcise Shh $mm $ss, $month/$day/$year\n, To be precise: 6:2:55, 3/14/1973

Как обычно, необходи.мо проследить, чтобы аргументы функции находились в правильных интервалах. Add Delta DHMS по.тучает полное значение года (без вычитания 1900). Нумерация месяцев начинается с 1, а не с 0. Аналогичные параметры передаются и функции Add Delta Days модуля Date::DateCalc:

use Date OateCalc qw(Add Oelta Days), (Syear, Smonth, $day) = Add Delta Days( 1973, 1, 18, 55), print Nat was 55 days old on Smonth/$day/$year\n Nat was 55 days old on: 3/14/1973

t> Смотри также-

Документация по модулю Date::Calc от CPAN.

3.5. Вычисление разности между датами

Проблема

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

Решение

Если даты представлены в виде секунд с nanajra эпохи и прпиа/щежат иптервгшу от 20:45:52 13 декабря 1901 года до 03:14:07 19 января 2038 года включительно, достаточно вычесть одну дату из друго!! и преобразовать полученные секунды в дни:

Sseconds = Srecent = Searlier

Если вы работаете с отдельныхш компонентами полного времени или беспокоитесь об ограничениях интервалов для секунд с начала эпохи, воспользуйтесь модулем Date::Calc с CPAN. Он позволяет вычислять разность дат:

use Date Calc qw(Delta DHMS), ($days, Shours, Sminutes, Sseconds) = Delta DHMS( Syearl, Smonthi, $day1, Shourl, Sminutel, Ssecondsl, # Ранний

# момент

$уеаг2, $month2, $day2, $hour2, $minute2, Sseconds2, # Поздний

# момент

Комментарий

Одна из проблем, связанных с секундами с начала эпохи, - преобразование больших целых чисел в форму, попятную для человека. Следующий пример демонстрирует один из способов преобразования секунд с начала эпохи в прнвыч!1ые педели, дни, часы, минуты и секунды:

$Ьгее = 361535725, # 04 35 25 16 июня 1981 года

$nat = 96201950, # 03 45 50 18 января 1973 года

$difference = $bree - $nat,

print There were $difference seconds between Nat and Bree\n , There were 266802575 seconds between Nat and Bree

Sseconds = $difference % 60,

$difference = (Sdifference - $seconds) / 60

$niinutes = $difference % 60,

$difference = (Sdifference - Sminutes) / 60,

$hours = $difference $ 24,

$difference = ($difference - $hours) / 24,

$days = Sdifference % 7,

Sweeks = (Sdifference - Sdays) / 7,

print (Sweeks weeks, Sdays days, Shours Sminutes Sseconds)\n , (441 weeks, 0 days, 23: 49: 35)

Функции модуля Date::CaIc упрощают подобные вычисления. Delta Days возвращает количество дней между двумя датами. Даты передаются ей в виде списка «год/месяц/день» в хронологическом порядке, то есть начиная с более painiefl.

t> Смотри также-

Документация по стандартному модулю Date::Calc с CPAN.

3.6. Определение номера недели или дня недели/месяца/года

Проблема

Имеется дата в секундах с начала эпохи или в виде отдельных компонентов - года, месяца и т. д. Требуется узнать, на какой номер недели или день недели/месяца/года она приходится.

Решение

Если дата выражена в секундах с начала эпохи, день года, день месяца или недели возвращается функцией localtime. Номер педели легко рассчитывается по дню года.

3.6. Определение номера недели или дня недели/месяца/года 103

($MONTHDAY, $WEEKDAY, $YEARDAY) = (localtime $DATE) [3,6,7], $WEEKNUM = int($YEARDAY / 7) + 1,

Отдельные компоненты полного времени можно преобразовать в чисто секунд с начала эпохи (см. рецепт 3.3) и воспользоваться приведенным выше решением. Возможен и другой вариант - применение функций Oay of Week, Week Nuniber и Day of Year модуля Dale::CaIc с CPAN:

use Date Calc qw(Day of Week Week Number Day of Year),

# Исходные величины - $year, Smonth и Sday

# По определению Sday является днем месяца Swday = Day of Week($year Smonth, Sday), Swnum - Week Number(Syear, Smonth, Sday), Sdnum = Day of Year($year, Smonth Sday),

Комментарий

Фу1ПЩ1П1 Oay of Week, Week Nuinber и Day of Year получают год без вычитагиш 1900 и месяц в нумерации, начинающейся с 1 (январь), а не с 0. Возвращаемое значение функции Day of Week находится в интервале 1-7 (с понедельника до воскресенья) или равняется О в случае ошибки (например, при неверно заданно!! дате).

use Date Calc qw(Day of Week Week Number),

Syear = 1981,

Smonth =6, # (Июнь)

Sday = 16,

©days = qw Error Monday Tuesday Wednesday Thursday Friday Saturday Sunday ,

Swday = Day of Week($year, Smonth Sday), print $month/$day/$year was a $days[$wday]\n ,

Swnum = Week Number($year, Smonth, Sday), print in the Swnum week \n , 6/16/1981 was a Tuesday in the 25 week

В некоторых странах сущестнуют специальпые стандарты, касающиеся первой педели года. Например, в Норвегии первая педеля должна содержать ие менее 4 дней (и начинаться с попедельпика). Если 1 января выпадает на неделю из 3 и менее дней, она считается 52 или 53 педелей предыдущего года. В Аме-ршсе первая рабочая педеля обычно начинается с первого понедельника года. Возможно, при таких правилах ва.м придется написать собственный алгоритм или по крайней мере изучить форматы %G, %L, %W и %U функции UnixDate модуля Date::Manip.

t> Смотри также-

Описание функции localtime в perlfunc{\); документация по стандартному модулю Date::Calc от CPAN.