Μετάβαση στο κύριο περιεχόμενο

Πώς να υπολογίσετε την ηλικία πριν από την 1/1/1900 στο Excel;

Στο Excel, η ημερομηνία πριν από την 1/1/1900 δεν μπορεί να εισαχθεί και να υπολογιστεί σωστά. Εάν θέλετε να υπολογίσετε την ηλικία ενός ατόμου που γεννήθηκε και πέθανε πριν από την 1/1/1900, αυτό δεν θα είχε τον σωστό υπολογισμό γενικά στο Excel. Αλλά εδώ σε αυτό το άρθρο, ένα κόλπο μπορεί να σας βοηθήσει να υπολογίσετε την ηλικία πριν από την 1/1/1900 στο Excel.

Υπολογίστε την ηλικία πριν από την 1/1/1900 με το VBA

Υπολογίστε την ηλικία ανά γενέθλια με το Kutools για Excel καλή ιδέα3


βέλος μπλε δεξιά φούσκα Υπολογίστε την ηλικία πριν από την 1/1/1900 με το VBA

Εδώ είναι ένας κωδικός VBA που μπορεί να σας βοηθήσει να υπολογίσετε γρήγορα την ηλικία πριν από την 1/1/1900.

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.


βέλος μπλε δεξιά φούσκα Υπολογίστε την ηλικία ανά γενέθλια με το Kutools για Excel

Εάν οι ημερομηνίες γενεθλίων είναι συνήθως μετά την 1/1/1900, μπορείτε να υποβάλετε αίτηση Kutools για Excel'S Βοηθός ημερομηνίας και ώρας βοηθητικό πρόγραμμα, το οποίο μπορεί να υπολογίσει γρήγορα την ηλικία με τα δεδομένα γενέθλια.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε ένα κενό κελί που θέλετε να εξάγετε την ηλικία και κάντε κλικ στο Kutools > Βοηθός τύπου > Βοηθός ημερομηνίας και ώρας. Δείτε το στιγμιότυπο οθόνης:
doc υπολογίστε την ηλικία πριν από το 1900 3

2. Στη συνέχεια, στο Βοηθός ημερομηνίας και ώρας διαλόγου, επιλέξτε Ηλικία επιλογή, επιλέξτε τα γενέθλια που θέλετε να υπολογίσετε την ηλικία με βάση το Ημερομηνία της γέννησης πλαίσιο κειμένου, από προεπιλογή, το κελί θα επιλεγεί ως απόλυτη αναφορά, μπορείτε να το αλλάξετε σε σχετική αναφορά και, στη συνέχεια, να το ελέγξετε Σήμερα και επιλέξτε έναν τύπο αποτελέσματος που θέλετε να εμφανιστεί στην αναπτυσσόμενη λίστα Τύπος αποτελέσματος εξόδου. Δείτε το στιγμιότυπο οθόνης:
doc υπολογίστε την ηλικία πριν από το 1900 4

3. κλικ Ok για να εφαρμόσετε αυτόν τον τύπο, και τώρα μπορείτε να δείτε την ηλικία έχει εμφανιστεί. Και αν χρειάζεστε, μπορείτε να σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από τα κελιά που χρειάζονται αυτόν τον τύπο. Δείτε το στιγμιότυπο οθόνης:
doc υπολογίστε την ηλικία πριν από το 1900 5

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
don't work excel say "nombre Ambiguo"
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations