Як розрахувати вік до 1/1/1900 в Excel?
В Excel дату до 1/1/1900 неможливо ввести та правильно розрахувати. Якщо ви хочете розрахувати вік людини, яка народилася і померла до 1/1/1900, це не отримало б правильного розрахунку в Excel загалом. Але тут, у цій статті, трюк може допомогти вам розрахувати вік до 1/1/1900 в Excel.
Обчисліть вік до 1/1/1900 за допомогою VBA
Обчисліть вік за днем народження за допомогою Kutools для Excel
Обчисліть вік до 1/1/1900 за допомогою VBA
Ось код VBA може допомогти вам швидко розрахувати вік до 1/1/1900.
1. Виберіть порожню клітинку та введіть день народження людини, а потім виберіть іншу клітинку, щоб ввести дату сьогоднішнього дня, або дату смерті людини, як вам потрібно. Дивіться знімок екрана:
2. Потім натисніть Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.
3. клацання Insert > Модулі, вставте нижче 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. Виділіть порожню комірку, ось С2, і введіть цю формулу = AgeFunc (A2, B2) (A2 - день народження, а B2 - дата завершення) і натисніть
Що натомість? Створіть віртуальну версію себе у
, щоб отримати вік, і перетягніть маркер автозаповнення до потрібних клітинок. Дивіться знімок екрана:
Примітка: Цей VBA може обчислювати вік лише з датами у форматі мм / дд / рррр, наприклад 6.
Обчисліть вік за днем народження за допомогою Kutools для Excel
Якщо дати народження зазвичай після 1/1/1900, ви можете подати заявку Kutools для ExcelАвтора Помічник дати та часу утиліта, яка дозволяє швидко розрахувати вік за даними днями народження.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. Виберіть порожню комірку, для якої потрібно вивести вік, і натисніть Кутулс > Помічник формули > Помічник дати та часу. Дивіться знімок екрана:
2. Потім у Помічник дати та часу діалогове вікно, позначте параметр Вік, виберіть день народження, за яким потрібно обчислити вік, виходячи з Дата народження текстове поле, за замовчуванням клітинка буде вибрана як абсолютна посилання, ви можете змінити її на relatiev reference, потім перевірити ТЕПЕР і виберіть один тип результату, який ви хочете показати у розкривному списку Тип вихідного результату. Дивіться знімок екрана:
3. клацання Ok застосувати цю формулу, і тепер ви можете бачити вік. І якщо вам потрібно, ви можете перетягнути маркер автозаповнення до клітинок, необхідних цій формулі. Дивіться знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!