Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

Вычислить возраст до 1 / 1 / 1900 с помощью VBA

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


Вычислить возраст по дню рождения

Например, у вас есть список дней рождения, и вы когда-нибудь пытались рассчитать возраст, основанный на этом дне рождения? Kutools for Excel's Вычислить возраст по дню рождения может сделать вам приятную услугу.
doc вычисляет возраст
Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel переносит расширенные функции 300 в Excel и мгновенно повышает производительность
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

arrow синий правый пузырь Вычислить возраст до 1 / 1 / 1900 с помощью VBA


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

Kutools for Excel, с более чем 120 удобные функции Excel, повышают эффективность работы и экономят ваше рабочее время.

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

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

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

VBA: вычислить возраст до 1 / 1 / 1900

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 - дата окончания) и нажмите вводить ключ, чтобы получить возраст, и перетащите ручку автозаполнения по ячейкам, которые вам нужны. Смотрите скриншот:
doc вычисляет возраст до 1900 2

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


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

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

Kutools for Excel, с более чем 120 удобные функции Excel, повышают эффективность работы и экономят ваше рабочее время.

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

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

2. Затем в Помощник Формулы диалога, выберите день рождения, который вы хотите рассчитать возраст, исходя из Дата текстовое окно. Смотрите скриншот:
doc вычисляет возраст до 1900 4

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

обратите внимание1Если вы заинтересованы в этом дополнении, загрузить пробную версию 60-дней.

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.