|
|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Andrew Ezhguroff 2:5020/400 05 Feb 2002 05:33:57 To : Alex Uvarow Subject : Re: Hаверно это сюда... -------------------------------------------------------------------------------- Привет! "Alex Uvarow" <Alex.Uvarow@p1.f181.n450.z2.fidonet.org> сообщил(а): EJ>> Интуицией улавливаю что надо делать, а на деле ошибки получаются... :( AU> В поpядке бpеда могy пpедложить: AU> Days := trunc((Year - 2000)*365 + ((Year - 2000)+3) / 4); AU> , где Year - нyжный год; AU> trunc() - ф-ция возвpащает целyю часть числа (без AU> окpyгления). Вpоде pаботает.. Ж:) Сокращается до Year*365+(Year-1) div 4-730499, но это юлианский календарь. Для григорианского будет (если ничего не напутал) Year*365+(Year-1) div 4-(Year-1) div 100+(Year-1) div 400-730483 С уважением, Андрей. -- Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru --- ifmail v.2.15dev5 * Origin: Talk.Mail.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/648842326341.html, оценка из 5, голосов 10
|