Πώς να υπολογίσετε την ηλικία πριν από την 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. κλικ Κύριο θέμα > Μονάδα μέτρησης, επικολλήστε κάτω από το 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 είναι η ημερομηνία λήξης) και πατήστε εισάγετε κλειδί για να αποκτήσετε την ηλικία και σύρετε τη λαβή αυτόματης συμπλήρωσης στα κελιά που χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:
Σημείωση: Αυτό το VBA μπορεί να υπολογίσει ηλικίες μόνο με ημερομηνίες σε μορφή mm / dd / yyyy, όπως στις 6/23/1845.
Υπολογίστε την ηλικία ανά γενέθλια με το Kutools για Excel
Εάν οι ημερομηνίες γενεθλίων είναι συνήθως μετά την 1/1/1900, μπορείτε να υποβάλετε αίτηση Kutools για Excel'S Βοηθός ημερομηνίας και ώρας βοηθητικό πρόγραμμα, το οποίο μπορεί να υπολογίσει γρήγορα την ηλικία με τα δεδομένα γενέθλια.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. Επιλέξτε ένα κενό κελί που θέλετε να εξάγετε την ηλικία και κάντε κλικ στο Kutools > Βοηθός τύπου > Βοηθός ημερομηνίας και ώρας. Δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, στο Βοηθός ημερομηνίας και ώρας διαλόγου, επιλέξτε Ηλικία επιλογή, επιλέξτε τα γενέθλια που θέλετε να υπολογίσετε την ηλικία με βάση το Ημερομηνία της γέννησης πλαίσιο κειμένου, από προεπιλογή, το κελί θα επιλεγεί ως απόλυτη αναφορά, μπορείτε να το αλλάξετε σε σχετική αναφορά και, στη συνέχεια, να το ελέγξετε Σήμερα και επιλέξτε έναν τύπο αποτελέσματος που θέλετε να εμφανιστεί στην αναπτυσσόμενη λίστα Τύπος αποτελέσματος εξόδου. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Ok για να εφαρμόσετε αυτόν τον τύπο, και τώρα μπορείτε να δείτε την ηλικία έχει εμφανιστεί. Και αν χρειάζεστε, μπορείτε να σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από τα κελιά που χρειάζονται αυτόν τον τύπο. Δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!