Перейти к основному содержанию

Как проверить, является ли год високосным в Excel?

Вы знаете, как определить, високосный год или нет? В Excel нет прямого метода проверки, но вы можете создать определяемую пользователем функцию или формулу для решения этой проблемы.

Проверьте, является ли год високосным с формулой

Проверьте, является ли год високосным с помощью функции, определяемой пользователем


стрелка синий правый пузырь Проверьте, является ли год високосным с формулой

Предположим, у вас есть список лет на листе, следующая длинная формула может помочь вам определить, является ли данный год високосным или нет. Пожалуйста, сделайте так:

1. Помимо ячеек года, введите в пустую ячейку следующую формулу:

= ЕСЛИ (ИЛИ (MOD (A2,400) = 0, AND (MOD (A2,4) = 0, MOD (A2,100) <> 0)), «Високосный год», «НЕ високосный год»)(A2 содержит год, когда вы хотите применить эту формулу, вы можете изменить его по своему усмотрению) см. снимок экрана:

doc-check-if-високосный год-1

2. Затем перетащите маркер заполнения в диапазон, который вы хотите содержать в этой формуле, и все годы будут проверены, являются ли они високосными или нет.

doc-check-if-високосный год-1

Внимание: Если соответствующая ячейка пуста, эта формула также покажет високосный год.


стрелка синий правый пузырь Проверьте, является ли год високосным с помощью функции, определяемой пользователем

Вы также можете создать функцию, определяемую пользователем, чтобы проверить, является ли год високосным, вы можете заполнить его следующим образом:

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: проверьте, является ли год високосным

Function IsLeapYear(pYear As Integer) As Boolean
'Update 20140623
If (pYear Mod 4) = 0 And (pYear Mod 100) <> 0 Or ((pYear Mod 400) = 0) Then
   IsLeapYear = True
Else
   IsLeapYear = False
End If
End Function

3. Затем сохраните и закройте этот код, вернитесь на свой рабочий лист и введите эту формулу: = isleapyear (A2), см. Снимок экрана:

doc-check-if-високосный год-1

4. Затем перетащите маркер заполнения в ячейки, которые вы хотите содержать эту формулу, и все годы отмечены флажком, НЕПРАВДА означает не високосный год, а ИСТИНА указывает високосный год. Смотрите скриншот:

doc-check-if-високосный год-1


Связанная статья:

Найдите наименьший общий знаменатель или наибольший общий делитель в Excel

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
ivec, your determination of a leap year within Excel itself works if the year is at / later than the Excel base year of 1900. For years before the Excel base year of 1900, I believe an external determination is required.
This comment was minimized by the moderator on the site
What about relying on Excel's own definition of a leap year?
The expression below checks the difference between March 1st and Feb 28 in that year - a leap year will have Feb 29 in-betweek, which makes a difference of 2 days.
IsLeapYear formula: = ( DATE( $$YEAR_REF$$ ;3;1)-DATE( $$YEAR_REF$$ ;2;28) > 1.5 )

The 1.5 is because I'm not sure if there is a risk of floating-point inaccuracies...
This comment was minimized by the moderator on the site
Please don't post my previous comment.
This comment was minimized by the moderator on the site
Using Excel 2013 the VBA returns backwards, saying 2015 is a leap year and 2016 is not
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations