Note: The other languages of the website are Google-translated. Back to English

Как рассчитать возраст до 1 в Excel?

В Excel дату до 1 нельзя ввести и рассчитать правильно. Если вы хотите рассчитать возраст человека, родившегося и умершего до 1, в Excel обычно не будет правильного расчета. Но вот трюк, который поможет вам рассчитать возраст до 1900 в Excel.

Рассчитайте возраст до 1 с помощью VBA

Рассчитать возраст по дню рождения с помощью Kutools for Excel хорошая идея3


стрелка синий правый пузырь Рассчитайте возраст до 1 с помощью VBA

Вот код VBA, который поможет вам быстро рассчитать возраст до 1.

1. Выберите пустую ячейку и введите день рождения человека, а затем выберите другую ячейку, чтобы ввести дату сегодняшнего дня или дату смерти человека, как вам нужно. Смотрите скриншот:
док вычислить возраст до 1900 года 1

2. Затем нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

3. Нажмите Вставить > Модуливставьте ниже VBA в новый Модули окно.

VBA: рассчитать возраст до 1

Public Function AgeFunc(SDate As Variant, EDate As Variant) As Long
'UpdatebyExtendOffice20160429
    Dim xSMonth As Integer
    Dim xSDay As Integer
    Dim xSYear As Integer
    Dim xEMonth As Integer
    Dim xEDay As Integer
    Dim xEYear As Integer
    Dim xAge As Integer
    If Not GetDate(SDate, xSYear, xSMonth, xSDay) Then
        AgeFunc = "Invalid Date"
        Exit Function
    End If
    If Not GetDate(EDate, xEYear, xEMonth, xEDay) Then
        AgeFunc = "Invalid Date"
        Exit Function
    End If
    xAge = xEYear - xSYear
    If xSMonth > xEMonth Then
        xAge = xAge - 1
    ElseIf xSMonth = xEMonth Then
        If xSDay > xEDay Then xAge = xAge - 1
    End If
    If xAge < 0 Then
        AgeFunc = "Invalid Date"
    Else
        AgeFunc = xAge
    End If
End Function

Private Function GetDate(ByVal DateStr As String, Y As Integer, M As Integer, D As Integer) As Boolean
    Dim I As Long
    Dim K As Long
    Y = 0
    M = 0
    D = 0
    GetDate = True
    On Error Resume Next
    I = InStr(1, DateStr, "/")
    M = CLng(Left(DateStr, I - 1))
    D = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "/") - I - 1))
    Y = CLng(Right(DateStr, Len(DateStr) - InStrRev(DateStr, "/")))
    If M < 1 Or M > 12 Or D < 1 Or D > 31 Or Y < 1 Then
        GetDate = False
    End If
End Function

4. Выберите пустую ячейку, это C2, и введите эту формулу. = AgeFunc (A2; B2) (A2 - день рождения, а B2 - дата окончания) и нажмите Enter нажмите клавишу, чтобы получить возраст, и перетащите дескриптор автозаполнения на нужные ячейки. Смотрите скриншот:
док вычислить возраст до 1900 года 2

Примечание: Этот VBA может рассчитывать возраст только с датами в формате мм / дд / гггг, например, 6.


стрелка синий правый пузырь Рассчитать возраст по дню рождения с помощью Kutools for Excel

Если день рождения обычно наступает после 1, вы можете подать заявку. Kutools for ExcelАвтора Помощник по дате и времени утилита, которая может быстро рассчитать возраст по заданным дням рождения.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите пустую ячейку, в которой вы хотите вывести возраст, и нажмите Кутулс > Формула Помощник > Помощник по дате и времени. Смотрите скриншот:
док вычислить возраст до 1900 года 3

2. Затем в Помощник по дате и времени диалоговое окно, отметьте опцию Возраст, выберите день рождения, возраст которого вы хотите рассчитать на основе Время рождения текстовое поле, по умолчанию, ячейка будет выбрана как абсолютная ссылка, вы можете изменить ее на относительную ссылку, затем отметьте Cегодня вариант и выберите один тип результата, который вы хотите отобразить в раскрывающемся списке Тип результата вывода. Смотрите скриншот:
док вычислить возраст до 1900 года 4

3. Нажмите Ok применить эту формулу, и теперь вы можете видеть, что возраст был показан. И если вам нужно, вы можете перетащить маркер автозаполнения на ячейки, для которых нужна эта формула. Смотрите скриншот:
док вычислить возраст до 1900 года 5


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (1)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
не работает excel сказать "nombre Ambiguo"
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL