Помогите реализовать алгоритм.

[PSD]

Иметтся прибор ведущий архив, в доках к нему при веден алгоритм вычисления адреса записи по дате.

Adr = StartAdr+ ((AbsDay*24+H) mod ArhSize)*RecSize
AbsDay = (Y-1)*365*((Y-1) div 4)+ DayInYear
DayInYear = Days[M-1]+D+(M>2)LeapYear
LeapYear =(Y mod 4==0)(Y mod 100!=0) + (Y mod 400 ==0)
Days[]={0,31,59,90,120,151,181,212,243,273,304,334};

ArhSize - размер архива
RecSize - длина записи
StartAdr - базовый адрес
H,D,M,Y -час день месяц и год
 
Может быть это какйто стандартный алгоритм для оргнизации циклического архива и ктонибудь сталкивался с подобным, меня смущают места выделеный жирным не понимаю как их итерпритировать и какое значение года брать YY - 06  или YYYY- 2006 .

Еще не понятно как адаптировать эти данные к месячным и суточным архивам

[REM]

меня смущают места выделеный жирным не понимаю как их итерпритировать и какое значение года брать YY - 06  или YYYY- 2006

Очевидно, это поправка на високосный год. Написано вроде бы без ошибок.
По всей видимости надо брать значение YYYY, иначе никак не объяснить этот оператор (Y mod 400 ==0)

[PSD]

Хм  тогда почему (Y mod 100!=0)  у нас что вековой год не может быть високосным?

[REM]

Разумеется.

Год високосный, если он делится на четыре без остатка, но если он делится на 100 без остатка, это не високосный год. Однако если он делится без остатка на 400 — это високосный год. Таким образом, 2000 г. является особым високосным годом, который бывает лишь раз в 400 лет.

[Finch]

Это коренное различие между Григорианским и Юлианским календарем.

[PSD]

Реализовал алгоритм

Код:

                     D=atol(&m_Date[2]);
		
		M=atol(&m_Date[5]);
		Y=atol(&m_Date[8]);
		H=atoi(&m_Date[13]);

		div_t a= div(Y,4);
		div_t b= div(Y,100);
		div_t c= div(Y,400);
		__int8 LY = (( a.rem ==0)&&(b.rem !=0))||(c.rem ==0);
		__int16 DIY = Days[M-1]+D+(M>2)*LY;
		div_t d=div(Y-1,4);
		 b=div(Y-1,100);
		 c=div(Y-1,400);
		__int16 AbsDay=(Y-1)*365+d.quot +DIY;
		div_t e=div(AbsDay*24+H ,ArhSize[m_Date[0]-'0']);
		m_Adr.Adr=BaseAdr[m_Date[0]-'0']+e.rem *RecSize[m_Date[0]-'0'] ;

Пробую работать спибором вижу что есть четкое расхождение на 6 дней...
(Может кто свежим глазом увидит где я ошибся)

Лично меня смущает срочка,  тут вроди как считают каждый четвертый год высоксным: 
__int16 AbsDay=(Y-1)*365+d.quot +DIY;

Пробовал модифицировать с учетом 4х сот летних циклов
__int16 AbsDay=(Y-1)*365+d.quot-b.quot+c.quot +DIY;
Получается 7 суток не долет.

[PSD]

Спасибо разобрался сам .... старас как сам С ошибка
__int16 AbsDay
нужно было определить как
__int32 AbsDay

ибо дней с рождества христого прошло несколько больше чем 65000....