Пишу отчет. В нем есть переменная ДнейВГоду
Надо чтоб она была = 365, а в высокосный год =366
Хелп плиз

год%4

это типа год делить на 4 и проверять целое ли число?
Цел (Число) - берет целую часть от числа. А как проверить целое или нет ?

2(1) не ври

(2) а в чем проблема посчитать количество дней?

01.01.год - 31.12.год = количество дней.
ну придется еще с секундами заморочиться, но результат будет верным

Возврат ДеньГода(КонецГода(ТвояДата)) - если 366 - високосный...

(5) наоборот. 31.12.год-01.01.год

Если ДеньГода(КонецГода(ТекущаяДата())) = 356 ТОгда
Сообщить("Ура высокосный");

(6)(8) господа с разных планет?

Абалдеть. а я и забыл про ДеньГода. :)

Есл Цел(Год/4) = Год/4 Тогда
Сообщить("Этот год високосный");
КонецЕсли;

о начинается конкурс на самое оригинальное решение )

+(8) Блин 366

Либо если он без остатка делится на 4 и (он/100) без остатка делится на четыре - тогда високосный... например 2000 - високосный, 2100 - не високосный

2(11) зачем врешь?!

всем спасибо, буду пробовать ))

2(11) 1900 год - високосный?

(15) а сам? 2100/4=525

(18) хм... точно, значит на 4 делить нельзя О_о

2(18) и что? 21/4=5.2 - значит 2100 - не високосный

2(19) а кто сказал что можно? Если бы я сказал дели на 11 - если без остатка - то високсный - ты бы мне поверил?  Почему нет?

хм, а вы действительно верите, что отчет будет пользоваться и в 2100-м году?:) Просто спросил...

(8) прав (1) не прав

год является високосным, если он кратен 4 и при этом не кратен 100, либо кратен 400

2(22) Отчет может расчитывать что-то, что будет происходить в 2100-м году

Есл Цел(Год/4) = Год/4 И Не Цел(Год/100) = Год/4 Тогда
Сообщить("Этот год високосный");
ИначеЕсли Цел(Год/4) = Год/4 И Цел(Год/100) = Год/100
Сообщить("Этот год високосный");
Иначе
Сообщить("Этот год не високосный");
КонецЕсли;

Если Цел(Год/4) = Год/4 И Не Цел(Год/100) = Год/4 Тогда
Сообщить("Этот год високосный");
ИначеЕсли Цел(Год/4) = Год/4 И Цел(Год/100) = Год/100
Сообщить("Этот год високосный");
Иначе
Сообщить("Этот год не високосный");
КонецЕсли;

Вместо
Цел(Год/4) = Год/4
лучше
Год%4 = 0

(26) По-моему (8) проще :)

Блин вот

Если (Год%4 = 0 И Не Год%100 = 0) ИЛИ (Год%100 = 0 И Год%400 = 0) Тогда
Сообщить("Этот год високосный");
КонецЕсли;

(28) Не правильно так. Например 1900 год не високосный

(29) согласен

Высокосный = 1
Попытка
 Дата29 = Дата(Год, 2, 29)
Исключение
 Высокосный = 0
КонецПопытки
Фигня конечно, но при остальной полной фигни и это фигня прокатит.


ВисокосныйГод = (КонецГода(ДатаПроверяемогоГода) - НачалоГода(ДатаПроверяемогоГода) + 1)/(3600 * 24) = 366


(33) млиин, украл мою фигню.. ))

(29) и самый правильный

Вот развели то... )))

ну дык пятницо - понеслось )))

ВЫБРАТЬ
   ВЫБОР
       КОГДА РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&дата, ГОД), КОНЕЦПЕРИОДА(&дата, ГОД), ДЕНЬ) = 364
           ТОГДА "Не високосный"
       ИНАЧЕ "Високосный"
   КОНЕЦ КАК Поле1

понеслось то 356 дней в (8) теперь 364, какие еще года есть?

я понимаю что пятницо, но так набухаться уже в час дня!!!

+(35) тогда вот:

Если День(Дата("20080301") - 1) = 29 Тогда
   Сообщить("Год високосный");
иначе
   Сообщить("Год не високосный");
КонецЕсли;

(39) параметр дата - любая дата в исследуемом году

еще можно получить 1 марта того года и отнять день и посмотреть какой получится
)))

почему тогда не учтено что после 2012г вообще будет по другому каледарю ?  ))

(44) :))

(40)в (39) все правильно

ГодВисокосный = ДеньГода(КонецГода(ПроверяемаяДата)) = 366
(47) а ну да - немного недосмотрел ))) Честное слово трезвый!!!

(45) Учтено в (1)

в промежутке 2097-2103 вообще нет высокосного года

(50) надеюсь, ты не слишком расстроился? И вообще, високосный год - это зло.

ДнейГод = ДеньГода(КонецГода(Дата))

2(45) для другого календаря - другие правила.. для этого - такие