Comment calculer les âges avant 01/01/1900 dans Excel

Même si Microsoft Excel les formules de date peuvent utiliser uniquement les dates entrées entre 01/01/1900 et 31/12/9999, vous pouvez utiliser un personnalisé Microsoft Visual Basic pour applications fonction pour calculer le âge (en années) de quelqu'un ou quelque chose qui a été tout d'abord créé avant le 1er janvier 1900.

Utiliser une macro pour calculer le âge

Microsoft fournit des exemples de programmation pour illustration uniquement, sans garantie explicite ou implicite. Cela inclut, mais n'est pas limité aux garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils qui sont utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne sont pas modifier les exemples en vue de fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.
Excel entre les dates antérieures au 1/1/1900 en tant que texte. Cette fonction fonctionne pour les dates entrées en tant que texte commençant par 1/1/0001, dates normales et peut gérer les dates lorsque la date de début est avant 1900 et date de fin est postérieure 1900. Pour utiliser la macro, procédez comme suit :

1. Démarrez Excel. Afficher la feuille de calcul sur lequel vous souhaitez utiliser la fonction.
2. Appuyez sur ALT + F11 pour basculer vers Visual Basic Editor.
3. Dans le menu Insertion , cliquez sur module .
4. Tapez le code suivant dans le module :

   ' This is the initial function. It takes in a start date and an end date.
   Public Function AgeFunc(stdate As Variant, endate As Variant)
       
       ' Dim our variables.
       Dim stvar As String
       Dim stmon As String
       Dim stday As String
       Dim styr As String
       Dim endvar As String
       Dim endmon As String
       Dim endday As String
       Dim endyr As String
       Dim stmonf As Integer
       Dim stdayf As Integer
       Dim styrf As Integer
       Dim endmonf As Integer
       Dim enddayf As Integer
       Dim endyrf As Integer
       Dim years As Integer
       
       ' This variable will be used to modify string length.
       Dim fx As Integer
       fx = 0
       
       ' Calls custom function sfunc which runs the Search worksheet function
       ' and returns the results.
       ' Searches for the first "/" sign in the start date.
       stvar = sfunc("/", stdate)
       
       ' Parse the month and day from the start date.
       stmon = Left(stdate, sfunc("/", stdate) - 1)
       stday = Mid(stdate, stvar + 1, sfunc("/", stdate, sfunc("/", stdate) + 1) - stvar - 1)
       
       ' Check the length of the day and month strings and modify the string 
       ' length variable.
       If Len(stday) = 1 Then fx = fx + 1
       If Len(stmon) = 2 Then fx = fx + 1
       
       ' Parse the year, using information from the string length variable.
       styr = Right(stdate, Len(stdate) - (sfunc("/", stdate) + 1) - stvar + fx)
           
       ' Change the text values we obtained to integers for calculation 
       ' purposes.
       stmonf = CInt(stmon)
       stdayf = CInt(stday)
       styrf = CInt(styr)
       
       ' Check for valid date entries.
       If stmonf < 1 Or stmonf > 12 Or stdayf < 1 Or stdayf > 31 Or styrf < 1 Then
           AgeFunc = "Invalid Date"
           Exit Function
       End If
   
       ' Reset the string length variable.
       fx = 0
       
       ' Parse the first "/" sign from the end date.
       endvar = sfunc("/", endate)
       
       ' Parse the month and day from the end date.
       endmon = Left(endate, sfunc("/", endate) - 1)
       endday = Mid(endate, endvar + 1, sfunc("/", endate, sfunc("/", endate) + 1) - endvar - 1)
       
       ' Check the length of the day and month strings and modify the string 
       ' length variable.
       If Len(endday) = 1 Then fx = fx + 1
       If Len(endmon) = 2 Then fx = fx + 1
       
       ' Parse the year, using information from the string length variable.
       endyr = Right(endate, Len(endate) - (sfunc("/", endate) + 1) - endvar + fx)
           
       ' Change the text values we obtained to integers for calculation 
       ' purposes.
       endmonf = CInt(endmon)
       enddayf = CInt(endday)
       endyrf = CInt(endyr)
       
       ' Check for valid date entries.
       If endmonf < 1 Or endmonf > 12 Or enddayf < 1 Or enddayf > 31 Or endyrf < 1 Then
           AgeFunc = "Invalid Date"
           Exit Function
       End If
       
       ' Determine the initial number of years by subtracting the first and 
       ' second year.
       years = endyrf - styrf
       
       ' Look at the month and day values to make sure a full year has passed. 
       If stmonf > endmonf Then
           years = years - 1
       End If
           
       If stmonf = endmonf And stdayf > enddayf Then
           years = years - 1
       End If
   
       ' Make sure that we are not returning a negative number and, if not, 
       ' return the years.
       If years < 0 Then
           AgeFunc = "Invalid Date"
       Else
           AgeFunc = years
       End If
       
   End Function
   
   ' This is a second function that the first will call.
   ' It runs the Search worksheet function with arguments passed from AgeFunc.
   ' It is used so that the code is easier to read.
   Public Function sfunc(x As Variant, y As Variant, Optional z As Variant)
       sfunc = Application.WorksheetFunction.Search(x, y, z)
   End Function
   					

5. Enregistrez le fichier.
6. Tapez les données suivantes :
   

   A1   01/01/1887
   A2   02/02/1945
   						

   Dans la cellule A3, entrez la formule suivante
   = AgeFunc(startdate,enddate)
   startdate étant une référence de cellule à la première date (R1) et enddate est une référence de cellule à votre deuxième date (A2).
   
   Le résultat devrait être 58.

Remarque : vérifier toutes les dates avant 01/01/1900 validité. Dates indiquées en tant que texte ne sont pas vérifiées par Excel.

Pour plus d'informations sur l'utilisation de l'exemple de code dans cet article, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft :