Задачка о календарях в C++

[SuperVisor]

Сообщение от Sasha_Smirnov

Чушь-то чушь, но она же работает!

Объясню на пальцах...
Переводим дату в дни - отбрасываем знаки после запятой. Вот теперь у Вас есть количество дней с 31 декабря 1889г. Что теперь? У Вас есть конструктивные предложения?! Про такое говорят "Слышу звон, да не знаю где он."
Я же предлагаю за минимум расчетов получить разницу календарей в днях и просто уменьшить/увеличить количество дней в исходной дате, обработав 3(!) исключительных случая на каждые 400 лет.
И я даже знаю, как это работает!

P.S. А за ваш пост вам можно дать нарушение по 2 пунктам:
1.) флуд - т.к. это обычные прерии, не несущие раскрытия темы ни коим образом
2.) нарушение правил форума - т.к. ссылки в данном разделе запрещены. (за это и выдал)

[Utkin]

Ну SuperVisor, мне кажется как раз таки Ваш метод весьма мутным, чего уж тут говорить о топикстартере . Насчет дней: тут я считаю все правильным, ему понадобиться 2 функции: перевод с юлианского в дни и с дней в грегорианский.
Как переводить в грегорианский? Да практически также как предлагаете Вы - число дней в году практически фиксировано, нужно будет только делать коррекцию на високосные года по указанным выше правилам.
Такой вариант более универсален, поскольку не содержит исключительных случаев. Единственное ограничение - точкой отсчета будет являться наша эра и дата за ней не будут доступны.
Удобство такого подхода в том, что если ему потом потребуется перевод в календарь мая, то писать нужно будет только одну функцию .

[SuperVisor]

Сообщение от Utkin

исключительных случаев. Единственное ограничение - точкой отсчета будет являться наша эра и дата за ней не будут доступны.

Под исключительными случаями я подразумеваю лишь отображение даты, когда 29 февраля 1800 года невозможно в типе TDateTime. И его придется вывести самому )
По поводу остального: через пол-часика вложу код с подробными камментами... "Мутный" - есть "не понятный", но не все что не понятно - не верно либо хуже. ))

[Frame1992]

А разницу в днях, на сколько я понимаю можно осуществлять по формуле d=((y/100)-(y/400))-2??

А ведь кто-то хотел даже код написать...

[Serge_Bliznykov]

ну, я тоже хочу код написать...
почти всё готово, но есть одна мелкая загвоздочка... как только её преодолею, считайте готовый код уже в кармане!
загвоздка вот в чём.
я набросал функцию (не сам, воспользовался чужими наработками, в частности, кодом (c) T. R. Willmitch)
которая определяет разность в днях между Юлианской и Григорианскими датами.
вот эта функция:

FUNCTION DiffJulDay (Day, Month, Year  : INTEGER) : integer;
VAR       A : LONGINT;
     Gregorian : BOOLEAN;

BEGIN
  Gregorian := TRUE;

(* Check if the date is Gregorian, beginning 1582 October 15.               *)

  IF Year < 1582 THEN Gregorian := FALSE;
  IF (Year = 1582) AND (Month < 10) THEN Gregorian := FALSE;
  IF (Year = 1582) AND (Month = 10) THEN
    IF Day < 15 THEN Gregorian := FALSE;

  IF Month < 3 THEN BEGIN
    Year := Year - 1;
    Month := Month + 12
  END;  (* IF *)

  A := Year DIV 100;

  IF Gregorian THEN
    DiffJulDay := 2 - A + A DIV 4
  ELSE
    DiffJulDay := 0;

END;  (* FUNCTION DiffJulDay *)

но, проблема в том, что на входе в эту функцию должны быть месяц, день и год в Григорианском формате. тогда она возвращает корректное значение разницы в днях... а в данном случае нужно наоборот, по Юлианской дате получить эту самую разницу... ошибка будет возникать вблизи критичных дат (конец февраля 1700, 1800 и 1900 годов)

[SuperVisor]

Извиняюсь за задержку. Работа, дом... Откровенно - на код потратил часа 2. От Datetime отказался. Если нужны будут 5 тысяч с лишним лет, добавите сами...
This is universal CODE:

function DateTimeCalendarConvert(var DD, MM, YYYY: integer; OurAge: Boolean; ToJuly: Boolean): String;
  var
    DInc: integer;
    Vs: Boolean;

  //Процедура создана для того, чтобы узнать, високосный ли год по тому или иному календарю
    procedure GetVS;
    begin
      if ToJuly then         //Если переводим в Юлианский - то узнаем високосен ли год в той системе
        Vs:=((YYYY mod 4) = 0)
      else                   //Иначе узнаем високосность Григорианского календаря
        Vs:=(((YYYY mod 4) = 0) and not ((YYYY mod 100) = 0)) or ((YYYY mod 400) = 0);
    end;
  begin
  // Узнаем количество веков от начала эры
    DInc:=trunc(YYYY/100);
  //Если до нашей эры и год - не начало эры вычитаем 1 из разницы.
    if not OurAge and (DInc<>0) then Dec(DInc);
  //Почему, спросите вы??? Да потому что нулевого года нет, а начало эры есть. От
  // 100 года до нашей эры до 100 года нашей эры - 2 века, про это забывать нельзя.

  //Узнаем разницу между календарями в днях. Берем условную точку - начало эры.
    DInc:=(DInc div 4)*3 + (DInc mod 4);

  //                      ИСКЛЮЧЕНИЕ ПЕРВОЕ
  //Учитывая условность предыдущего действия и зная, что календари сошлись в 200 году
  //в зависимости от эры прибавляем или отнимаем 2 дня, которые по расчету прибавились
  //за 100й год и 200й год
    if OurAge then
      dec(DInc,2)
    else

    begin
      inc(DInc,2);
      DInc:=-DInc;
    end;

  //                      ИСКЛЮЧЕНИЕ ВТОРОЕ
  //Если год високосен в Юлианском, но не високосен в Григореанском календаре и
  //нам нужен перевод в Григореанский календарь
    if (YYYY mod 100=0) and not (YYYY mod 400=0) and not ToJuly then
  //а 1 марта еще не наступило
        if (MM<2) or ((MM=2) and (DD<=29)) then
  //значит разница в 1 день за этот год еще не действует.
          if OurAge then dec(DInc) else inc(DInc);

  //Прибавляем/вычитаем дни
    if ToJuly then
      DD:=DD-DInc
    else
      DD:=DD+DInc;
  //Получаем високосность текущего года в нужной системе
    GetVs;

  //Если количество дней больше, чем положено в данном месяце текущего года
    while DD > MonthDays[Vs][MM] do
    begin
    //Вычитаем дни, прибавляем месяц
      DD:=DD-MonthDays[Vs][MM];
      Inc(MM);
    //Проверяем, не кончился ли год при переводе
      if MM>12 then
      begin
        Inc(YYYY);
        MM:=1;
        GetVs;
      end;
    end;

  //То же самое, только в другую сторону
    while DD <= 0 do
    begin

      if MM=1 then
      begin
        MM:=12;
        Dec(YYYY);
        GetVS;
      end

      else Dec(MM);

      DD:=MonthDays[Vs][MM]+DD;
    end;
  //Генерим результат
    Result:=inttostr(DD)+' '+LongMonthNames[MM]+' '+inttostr(YYYY)+'г.';
  //Добавляем постфикс, если необходимо
    if Not OurAge then Result:=Result+' до н.э.';
  end;

P.S. Решение на Delphi - на чем умею, на том и пишу... Пусть C++ гуру помогут в переносе.

[Serge_Bliznykov]

SuperVisor, проверил Ваше решение (практически во всём диапозе вообразимых дат от 1 г.н.э. до 10000 г.н.э.)
Всё работает!

[SuperVisor]

Serge_Bliznykov, оно еще и в оба направления работает и с разными эрами.. )

Для удобоваримости перевода еще некоторые нюансы Вам в помощь:

type
  TDayTable = array[1..12] of Word;
const
  MonthDays: array [Boolean] of TDayTable =
    ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
     (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));
  LongMonthNames: array[1..12] of string = 
    ('Января', 'Февраля', 'Марта', 'Апреля', 'Мая', 'Июня', 'Июля', 'Августа', 'Сентября',
     'Октября', 'Ноября', 'Декабря');

P.S. По Юлианскому календарю сейчас 7517 год, т.е. разница между ними в 5508 лет.

[Stilet]

LongMonthNames: array[1..12] of string =
('Января', 'Февраля', 'Марта', 'Апреля', 'Мая', 'Июня', 'Июля', 'Августа', 'Сентября',
'Октября', 'Ноября', 'Декабря');

Ну это можно заменить:

formatDateTime('mmmm',Дата);

Причем что мне в этом нравится, так независимость от языка. Буит стоять греческий - по гречески будет писать названия месяцев. Рекомендую

[SuperVisor]

Виталий, тут просто на C++ надо, а какие в нем возможности я, к сожалению, не знаю.. Потому так.
В Delphi LongMonthNames[] берется из системных параметров.. Ну я на всякий случай и описал.. )))