Придумал такой способ определить колич дней в заданном году nYear
к дате nYear/1/1 (первый день года) прибавляю 365 дней
если номер дня результирующей даты =366 то это високосный год.
Но этот способ перестает работать после 2036 года
см.пример
For nYear=1999 To 2048 QtyDays=365 Hi$=" " If DayOfYear(AddDate(Date(nYear,1,1,0,0,0),#PB_Date_Day,365))=366 QtyDays=366 Hi$=" В" EndIf Debug Str(nYear)+" : "+Str(QtyDays)+Hi$ Nexе
Почему? Где я накосячил?