Как рассчитать возраст до 1 в Excel?
В Excel дату до 1 нельзя ввести и рассчитать правильно. Если вы хотите рассчитать возраст человека, родившегося и умершего до 1, в Excel обычно не будет правильного расчета. Но вот трюк, который поможет вам рассчитать возраст до 1900 в Excel.
Рассчитайте возраст до 1 с помощью VBA
Рассчитать возраст по дню рождения с помощью Kutools for Excel
Рассчитайте возраст до 1 с помощью VBA
Вот код VBA, который поможет вам быстро рассчитать возраст до 1.
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 нажмите клавишу, чтобы получить возраст, и перетащите дескриптор автозаполнения на нужные ячейки. Смотрите скриншот:
Примечание: Этот VBA может рассчитывать возраст только с датами в формате мм / дд / гггг, например, 6.
Рассчитать возраст по дню рождения с помощью Kutools for Excel
Если день рождения обычно наступает после 1, вы можете подать заявку. Kutools for ExcelАвтора Помощник по дате и времени утилита, которая может быстро рассчитать возраст по заданным дням рождения.
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Выберите пустую ячейку, в которой вы хотите вывести возраст, и нажмите Кутулс > Формула Помощник > Помощник по дате и времени. Смотрите скриншот:
2. Затем в Помощник по дате и времени диалоговое окно, отметьте опцию Возраст, выберите день рождения, возраст которого вы хотите рассчитать на основе Время рождения текстовое поле, по умолчанию, ячейка будет выбрана как абсолютная ссылка, вы можете изменить ее на относительную ссылку, затем отметьте Cегодня вариант и выберите один тип результата, который вы хотите отобразить в раскрывающемся списке Тип результата вывода. Смотрите скриншот:
3. Нажмите Ok применить эту формулу, и теперь вы можете видеть, что возраст был показан. И если вам нужно, вы можете перетащить маркер автозаполнения на ячейки, для которых нужна эта формула. Смотрите скриншот:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!