Как программно определить сколько дней в месяце или в году?!

КолДнейВМес = КонМесяца(МДата)-НачМесяца(МДата)+1;
КолДнейВГоду = КонГода(МДата)-НачГода(МДата)+1;

КолДнейВМес = ДатаЧисло(КонМесяца(МДата));
КолДнейВГоду = НомерДняГода(КонГода(МДата));

НомерДняГода(КонГода(ТекущаДата()))

и еще так
вмесяце = датачисло(конмесяца(какая_то_дата_месяца))
вгоду = 365 + (конмесяца(дата(нашгод,2,1)))-28

По количеству дней в году (1) и (2),(3) данные не совпадают!!!

(5)
КонМесяца(РабочаяДата())-НачМесяца(РабочаяДата())+1 = 31
КонГода(РабочаяДата())-НачГода(РабочаяДата())+1 = 365
ДатаЧисло(КонМесяца(РабочаяДата())) = 31
НомерДняГода(КонГода(РабочаяДата())) = 365

На тему старого анекдота:
ДнейВГоду = 365;
ДнейВВисокосномГоду = 366;
ДнейВМесяцеГода[1] = 31;
ДнейВМесяцеВисГода[1] = 31;
ДнейВМесяцеГода[2] = 28;
ДнейВМесяцеГода[2] = 29;
..
:))

(6)Например за 2000 год -
КонГода(РабочаяДата())-НачГода(РабочаяДата())+1=366
НомерДняГода(КонГода(РабочаяДата())) =365

Дней(<ДатаНачала>,<ДатаОкончания>)
Назначение:
Получить количество ''ненулевых'' дней за период.
Возвращает: целое положительное число - количество дней.
Параметры:
<ДатаНачала> - дата начала периода, в котором определяется количество дней.
<ДатаОкончания> - дата окончания периода, в котором определяется количество дней.
Замечание:
Если <ДатаНачала> больше, чем <ДатаОкончания>, будет выведено

7+ А анекдот был такой:
.
Даны числа от 1 до 10. Надо напечатать 0, если число нечётное, и 1 если чётное.
Как решают эту задачу...
Учитель информатики:
if x=2 or x=4 or x=6 or x=8 or x=10 then write (0) else write (1)
Препод в институте:
if not odd(x) then write (0) else write (1)
Студент:
write (x mod 2)
ПрофессиональныйПрограммист:
a: array [1..10]:=(1,0,1,0,1,0,1,0,1,0);
write (a[x])

(9) Ето если использовать объект "Календарь", в данном случае он не используется.

(8) Гон или развод?
НомерДняГода(КонГода('19/10/2000')) = 366
КонГода('19/10/2000')-НачГода('19/10/2000')+1 = 366

Если 0+ДатаГод(ТекущаяДата())%4+ДатаГод(ТекущаяДата())0+ДатаГод (ТекущаяДата())@0=0 Тогда
   ВгодуДней=366;
Иначе
   ВгодуДней=365;
КонецЕсли;

(12) Да. Я не прав! Скопировал
НомерДняГода(КонГода(РабочаяДата()))
Не поменял РабочаяДата на свою...
Спасибо!

Что это было в (13)???
 
Если 0+ДатаГод(ТекущаяДата())%4+ДатаГод(ТекущаяДата())0+ДатаГод (ТекущаяДата())@0=0 Тогда
   ВгодуДней=366;
Иначе
   ВгодуДней=365;
КонецЕсли;

2(15) движок форуме пытается процентики подменять. Думает что енто такая кодировка. Матофильтр чтобы видел всё.