Как да изчисля възрастта преди 1/1/1900 в Excel?
В Excel датата преди 1 г. не може да бъде въведена и изчислена правилно. Ако искате да изчислите възрастта на човек, който е роден и починал преди 1/1900/1, това няма да получи правилното изчисление в Excel като цяло. Но тук, в тази статия, един трик може да ви помогне да изчислите възрастта преди 1/1900/1 в Excel.
Изчислете възрастта преди 1/1/1900 с VBA
Изчислете възрастта по рожден ден с Kutools за Excel 
Изчислете възрастта преди 1/1/1900 с VBA
Ето код на VBA, който може да ви помогне бързо да изчислите възрастта преди 1/1/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 Function4. Изберете празна клетка, тук е C2, и въведете тази формула =AgeFunc(A2,B2) (A2 е рожденият ден, а B2 е крайната дата) и натиснете Въведете за да получите възрастта, и плъзнете манипулатора за автоматично попълване върху клетките, от които се нуждаете. Вижте екранна снимка:
Забележка: Този VBA може да изчислява само възрасти с дати във формат мм/дд/гггг, като например 6/23/1845.
Изчислете възрастта по рожден ден с Kutools за Excel
Ако рождените дати обикновено са след 1/1/1900, можете да кандидатствате Kutools за ExcelЕ Помощник за дата и час помощна програма, която може бързо да изчисли възрастта според дадените рождени дни.
| Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Изберете празна клетка, в която искате да изведете възрастта, и щракнете Kutools > Помощник за формула > Помощник за дата и час. Вижте екранна снимка:
2. След това в Помощник за дата и час диалогов прозорец, проверете опцията Възраст, изберете рождения ден, който искате да изчислите възрастта въз основа на Дата на раждане текстово поле, по подразбиране, клетката ще бъде избрана като абсолютна препратка, можете да я промените на относителна препратка, след което отметнете днес и изберете един тип резултат, който искате да покажете в падащия списък Тип изходен резултат. Вижте екранна снимка:
3. кликване Ok за да приложите тази формула и сега можете да видите, че възрастта е показана. И ако имате нужда, можете да плъзнете манипулатора за автоматично попълване върху клетките, необходими на тази формула. Вижте екранна снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
