Come si calcola l’età per date precedenti al 1° gennaio 1900 in Excel?
In Excel, le date precedenti al 1° gennaio 1900 non possono essere inserite né calcolate correttamente. Se desideri calcolare l’età di una persona nata e deceduta prima del 1° gennaio 1900, in genere Excel non restituirà un risultato accurato. Tuttavia, in questo articolo ti sveliamo un trucco efficace per calcolare comunque l’età relativa a date anteriori al 1° gennaio 1900 direttamente in Excel.
Calcola l’età prima del 1/1/1900 con VBA
Calcola l’età in base alla data di nascita con Kutools per Excel 
Calcola l’età prima del 1/1/1900 con VBA
Di seguito trovi un codice VBA che ti permette di calcolare rapidamente l’età per date precedenti al 1° gennaio 1900.
1. Seleziona una cella vuota e inserisci la data di nascita della persona, quindi scegline un’altra per digitare la data odierna o quella del decesso, in base alle tue esigenze. Guarda lo screenshot:
2. Premere quindi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
3. Fare clic su Inserisci > Modulo, quindi incollare il seguente codice VBA nella nuova finestra del Modulo.
VBA: Calcola l’età prima del 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 Function4. Seleziona una cella vuota, ad esempio C2, e inserisci la formula =AgeFunc(A2;B2) (dove A2 è la data di nascita e B2 è la data finale), quindi premi il tasto Invio per calcolare l’età. Trascina poi il quadratino di riempimento automatico sulle celle desiderate. Guarda lo screenshot:
Nota: Questo codice VBA calcola l’età solo per date nel formato mm/gg/aaaa, ad esempio 6/23/1845.
Calcola l’età in base alla data di nascita con Kutools per Excel
Se le date di nascita sono successive al 1° gennaio 1900, puoi sfruttare lo strumento Kutools per Excel di Assistente Data e Ora, che ti permette di calcolare rapidamente l’età a partire dalle date di nascita fornite.
Dopo aver installato gratuitamenteKutools per Excel, procedere come segue:
1. Seleziona una cella vuota in cui desideri visualizzare l’età, quindi fai clic su Kutools > Assistente formula > Assistente Data e Ora. Vedere lo screenshot:
2. Nella finestra di dialogo Assistente Data e Ora, seleziona l’opzione Età, quindi scegli la data di nascita da cui calcolare l’età nella casella di testo Data di nascita. Per impostazione predefinita, la cella verrà selezionata come riferimento assoluto, ma puoi modificarla in riferimento relativo. Seleziona poi l’opzione Oggi e indica il tipo di risultato da visualizzare tramite l’elenco a discesa Tipo di risultato di output. Guarda lo screenshot:
3. Fare clic su OK per applicare la formula: a questo punto l’età verrà visualizzata. Se necessario, trascina il quadratino di riempimento automatico sulle celle a cui vuoi applicare la formula. Guarda lo screenshot:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi