Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment calculer l'âge avant 1 / 1 / 1900 dans Excel?

Dans Excel, la date avant 1 / 1 / 1900 ne peut pas être saisie et calculée correctement. Si vous voulez calculer l'âge d'une personne qui est née et est décédée avant 1 / 1 / 1900, le calcul correct dans Excel ne sera généralement pas effectué. Mais ici, dans cet article, une astuce peut vous aider à calculer l'âge avant 1 / 1 / 1900 dans Excel.

Calculer l'âge avant 1 / 1 / 1900 avec VBA

Calculer l'âge par anniversaire avec Kutools pour Excel bonne idée3


Calculer l'âge en fonction de l'anniversaire

Ici vous avez une liste d'anniversaire par exemple, et avez-vous déjà essayé de calculer l'âge basé sur l'anniversaire de ces trois ans? Kutools for Excel's Calculer l'âge en fonction de l'anniversaire peut vous faire une belle faveur.
doc calculer l'âge

flèche bleue droite bulle Calculer l'âge avant 1 / 1 / 1900 avec VBA


Voici un code VBA peut vous aider à calculer rapidement l'âge avant 1 / 1 / 1900.

Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

1. Sélectionnez une cellule vide et entrez l'anniversaire de la personne, puis sélectionnez une autre cellule pour entrer la date d'aujourd'hui ou la date de décès de la personne selon vos besoins. Voir la capture d'écran:
doc calculer l'âge avant 1900 1

2. Puis appuyez Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.

3. Cliquez insérer > Module, coller sous VBA au nouveau Module fenêtre.

VBA: Calculer l'âge avant 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. Sélectionnez une cellule vide, voici C2, et entrez cette formule = AgeFunc (A2, B2) (A2 est l'anniversaire, et le B2 est la date de fin), et appuyez sur Entrer clé pour obtenir l'âge, et faites glisser la poignée de remplissage automatique sur les cellules dont vous avez besoin. Voir la capture d'écran:
doc calculer l&#39;âge avant 1900 2

Remarque: Cette VBA ne peut calculer les âges avec des dates au format mm / jj / aaaa, comme 6 / 23 / 1845.


flèche bleue droite bulle Calculer l'âge par anniversaire avec Kutools pour Excel

Si les dates d'anniversaire sont normalement après 1 / 1 / 1900, vous pouvez postuler Kutools for Excel's Calculer l'âge en fonction de l'anniversaire utilitaire, qui peut rapidement calculer l'âge par les anniversaires donnés.

Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

après installation gratuite Kutools pour Excel, s'il vous plaît faire comme ci-dessous:

1. Sélectionnez une cellule vide dont vous souhaitez afficher l'âge, puis cliquez sur Kutools > Formules > Calculer l'âge en fonction de l'anniversaire. Voir la capture d'écran:
doc calculer l&#39;âge avant 1900 3

2. Puis dans le Formule d'aide Dans la boîte de dialogue, sélectionnez l'anniversaire que vous souhaitez calculer en fonction de l'âge. Date zone de texte. Voir la capture d'écran:
doc calculer l&#39;âge avant 1900 4

3. Cliquez Ok pour appliquer cette formule, et maintenant vous pouvez voir l'âge a été montré. Et si vous avez besoin, vous pouvez faire glisser la poignée de remplissage automatique sur les cellules nécessaires à cette formule. Voir la capture d'écran:
doc calculer l&#39;âge avant 1900 5

prêter attention1Si vous êtes intéressé par cet add-in, Téléchargez l'essai gratuit de 60-days.


Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.