Архив рубрики: время

Re: чтобы в спешке не забыть

Поглядел в список

добыл немного жидкостей:

  • Пять литров красного антифриза AWM на основе BASF Glysantin G30 (разливают в Дзержинске, как и обычный тосол, в интернетах пишут, что близок к G33) — 816 рублей — долил до нужного уровня, полную замену (на неё надо восемь литров) отложил на потом,
  • Четыре литра синтетического моторного масла Total Quartz 9000 вязкостью 5W-40 — 1440 рублей, в которые входит бесплатная замена плюс ещё 50 рублей за мойку. Мойка и замена — в том же здании. Пока меняли, обнаружил пару вмятин на левом пороге, где их получил — не помню, но вполне допускаю, что летом мог где-нибудь на свежем воздухе поймать: с моим стремлением лезть куда попало это вполне ожидаемо. Вся процедура (прийти, дождаться кладовщика, выяснить, что рекомендуемого масла в упакованном виде нет ни на складе, ни на витрине, согласиться на такое же, но на разлив и подешевле, заплатить, пообщаться со старшим мастером, перегнать машину к месту процедур, поглядеть на мойку (не в телевизор же пялиться), поглядеть на процесс смены масла, поговорить с мастером о найденных неисправностях, перегнать машину поближе к кассе, заплатить за мойку) — 45 минут. С учётом того, что магазин в центре и не надо ехать на край света — очень хорошо.

Пробег — 120152 км.

Местное время

Пара наблюдений относящихся к встроенной перловой функции localtime:

Код на перле

  1. Заданное в секундах с начала эпохи время вполне может быть отрицательным — то есть можно работать с датами до 1 января 1970 года.
  2. Разница между местным временем, возвращаемым функцией localtime и временем по Гринвичу (функция gmtime) непостоянна. Само по себе это не удивительно — существует же кое-где до сих пор летнее время. Удивительнее другое: разница эта, если залезть поглубже, иногда не является целым числом часов — можно проверить, например, как менялась она начиная с 1900 года:
#!/usr/bin/perl

use POSIX qw( strftime );

my $SEC_PER_DAY = 24*60*60;
my $old_time = '';

for my $day ( -25567 .. 0 ) {
    my @moment = localtime( $day * $SEC_PER_DAY );
    my $time   = strftime '%X', @moment; # HH:MM:SS
    if ( $old_time ne $time ) {
        printf
            "%s %s\n",
            strftime( '%x', @moment ),
            $time;
        $old_time = $time;
    }
}

Результат неожиданный:

  • 01.01.1900 04:02:33
  • 03.07.1916 03:45:05
  • 16.07.1919 04:00:00
  • 21.06.1930 05:00:00

и не всегда понятный: если 04:02:33 ещё как-то можно объяснить — это время соответствует долготе 60,6375° в. д. — пара километров от нынешнего центра Екатеринбурга, то 03:45:05 откуда? Ближайший крупный город с долготой 56,2708° в. д. — Пермь. Что-то я сильно сомневаюсь, что в дореволюціонномъ Челябинске действовало пермское время.