Високосный ли год?

Волшебник 15 2

Функция определяет, високосный ли год по григорианскому календарю (полное правило). Платформа "1C:Предприятие.Элемент Скрипт"

method Leap(year:Number):Boolean
	
    case True 
    when year % 400 == 0
		    return True
		
    when year % 100 == 0
		    return False
		
    when year % 4 == 0
		    return True
    else
		    return False
    ; 
;

// пример использования
method Script()
    
    for y = 1900 to 2100
        if Leap(y)
            Console.Write(y)
        ;
    ;    
;

4 месяца назад

Недостаточно рейтинга для добавления отрицательного голоса. Шаблон будет скрыт из ваших результатов поиска.

‹ ›

метод Скрипт()

    пер Результат = ЭтотГодВисокосный_1(Год = 2023)  // Ложь    
    
    Консоль.Записать("$Результат")
		

    Результат = ЭтотГодВисокосный_2(Год = 2024)  // Истина    
    
    Консоль.Записать("$Результат")
;

//////////////////////////////////////////////////////////
метод ЭтотГодВисокосный_1(Год: Число): Булево
    
    знч ПоследнийДеньФевраля = новый Дата(Год, 2, 1).КонецМесяца()
		                                            .День
    возврат ПоследнийДеньФевраля == 29
;

//////////////////////////////////////////////////////////
метод ЭтотГодВисокосный_2(Год: Число): Булево
    
    знч ПоследнийДеньГода = новый Дата(Год, 12, 31).ДеньГода()
    возврат ПоследнийДеньГода == 366
;