Leeftijd uitrekenen bij geboorte vóór 1900!

[evdelft]

Ik wil van bepaalde personen de leeftijd (huidige / bij overlijden) kunnen laten uitrekenen door Excel. Nu is dat in principe zo moeilijk niet.
A1: (datum in vullen)
A2: (=vandaag()-a1)
En klaar is Kees.

Echter, sommige mensen zijn ofwel ouder dan 100 jaar (wat resulteert in bijvoorbeeld een notatie als 12-05-02 - zijnde 102 jaar, vijf maanden en 12 dagen) ofwel geboren vóór 1 januari 1900.

In dat laatste geval is de resultante van het verschil voor Excel niet berekenbaar. Hoe doe ik dat?
En hoe krijg ik de leeftijd bij 100+ normaal in beeld?

Ik hoor graag! Dank.

 

[Gert Bouwmeeste]

Datums vanaf 01.01.1900 kunnen met behulp van Excel berekend worden, daarvoor niet.

Jouw voorbeeld 15-02-02 moet, als je het invoert als 15-02-1902 gewoon te berekenen zijn.

Voor 01-01-1900 kun je dat niet. Aan dit antwoord heb je niet alles, maar misschien wel wat.

 

[Cobbe]

Hier kan je hulp halen.(gratis en voor niet!)

http://j-walk.com/ss/excel/files/xdate.htm

Cobbe

 

[evdelft]

Hier kan je hulp halen.(gratis en voor niet!)

http://j-walk.com/ss/excel/files/xdate.htm

Cobbe

Oké, dank je wel. Die is gedownload. Alleen heb ik nu het volgende idiote probleempje.
«Select Add-Ins from the Tools menus.»
Allemaal leuk een aardig, maar waar vind ik dat in de Nederlandse versie Office 2007?

Alvast bedankt!

 

[evdelft]

Datums vanaf 01.01.1900 kunnen met behulp van Excel berekend worden, daarvoor niet.

Jouw voorbeeld 15-02-02 moet, als je het invoert als 15-02-1902 gewoon te berekenen zijn.

Voor 01-01-1900 kun je dat niet. Aan dit antwoord heb je niet alles, maar misschien wel wat.

Dat was niet wat ik bedoelde. Ik bedoelde dat de resultante 02 is, waar dat 102 zou moeten zijn (leeftijd is 102 jaar). Hoe kan ik dat - liefst met maanden en dagen erbij, maar zonder mag ook - laten zien?

Alvast bedankt!

 

[Warme bakkertje]

Na 30 sec. Googlen
http://support.microsoft.com/kb/245104

 

[Warme bakkertje]

Nog eentje om te proberen

Function AGE(birthdate As Variant, asofdate As Variant, Optional interval As Variant) As Variant
If IsMissing(interval) Then
interval = "yyyy"
End If
AGE = DateDiff(interval, birthdate, asofdate)
End Function

 

[GiMe]

Of hier !

 

[evdelft]

Bedankt, jongens! Het is gelukt, ook met de functie =vandaag invoeren Het kostte wat moeite maar t is gelukt...:thumb::thumb::thumb::thumb:

 

[Warme bakkertje]

:thumb:
Misschien kan je een klein voorbeeldbestandje posten met je gevonden oplossing voor forumgebruikers die misschien hetzelfde probleem ervaren.