Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe bereken je de leeftijd vóór 1 / 1 / 1900 in Excel?

In Excel kan de datum vóór 1 / 1 / 1900 niet correct worden ingevoerd en berekend. Als u de leeftijd wilt berekenen van een persoon die is geboren en stierf vóór 1 / 1 / 1900, zou dat in Excel over het algemeen niet de juiste berekening krijgen. Maar hier in dit artikel kan een truc u helpen om de leeftijd vóór 1 / 1 / 1900 in Excel te berekenen.

Bereken de leeftijd voor 1 / 1 / 1900 met VBA

Bereken leeftijd per verjaardag met Kutools voor Excel goed idee3


Bereken de leeftijd op basis van verjaardag

Hier heb je bijvoorbeeld een verjaardag, en heb je ooit geprobeerd om de leeftijd te berekenen op basis van deze verjaardag? Kutools for Excel's Bereken de leeftijd op basis van verjaardag kan je een leuke gunst doen.
doc berekent leeftijd

pijl blauwe rechterbel Bereken de leeftijd voor 1 / 1 / 1900 met VBA


Hier is een VBA-code die u kan helpen om de leeftijd voor 1 / 1 / 1900 snel te berekenen.

Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

1. Selecteer een lege cel en voer de geboortedatum van de persoon in en selecteer vervolgens een andere cel om de datum van vandaag in te voeren of de datum van overlijden. Zie screenshot:
doc berekent de leeftijd voor 1900 1

2. Druk vervolgens op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

3. klikken bijvoegsel > module, plak onder VBA op de nieuwe module venster.

VBA: bereken de leeftijd vóór 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. Selecteer een lege cel, hier is C2, en voer deze formule in = AgeFunc (A2, B2) (A2 is de geboortedatum en de B2 is de einddatum) en druk op invoeren sleutel om de leeftijd te krijgen en sleep de handgreep voor automatisch aanvullen naar de gewenste cellen. Zie screenshot:
doc berekent de leeftijd voor 1900 2

Let op: Deze VBA kan alleen leeftijden berekenen met datums in het formaat mm / dd / jjjj, zoals 6 / 23 / 1845.


pijl blauwe rechterbel Bereken leeftijd per verjaardag met Kutools voor Excel

Als de verjaardagsdata normaal na 1 / 1 / 1900 zijn, kunt u zich aanmelden Kutools for Excel's Bereken de leeftijd op basis van verjaardag hulpprogramma, waarmee snel de leeftijd kan worden berekend op basis van de opgegeven verjaardagen.

Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

Na gratis installatie Kutools voor Excel, doe het als volgt:

1. Selecteer een lege cel waarvan u de leeftijd wilt opgeven en klik op Kutools > Formules > Bereken de leeftijd op basis van verjaardag. Zie screenshot:
doc berekent de leeftijd voor 1900 3

2. Dan in de Formula Helper dialoogvenster, selecteer de geboortedatum waarop u de leeftijd wilt berekenen op basis van de Datum tekstvak. Zie screenshot:
doc berekent de leeftijd voor 1900 4

3. klikken Ok om deze formule toe te passen, en nu kunt u zien dat de leeftijd is weergegeven. En als u wilt, kunt u de handgreep voor automatisch aanvullen slepen over de cellen die deze formule nodig heeft. Zie screenshot:
doc berekent de leeftijd voor 1900 5

betaal attention1Als u geïnteresseerd bent in deze invoegtoepassing, download de 60-dagen gratis proefperiode.


Aanbevolen productiviteitstools voor Excel

Kutools voor Excel helpt u altijd om uw werk voor de tijd af te maken en uzelf te onderscheiden van een menigte

  • Meer dan 300 krachtige geavanceerde functies, ontworpen voor 1500-werkscenario's, verhoging van de productiviteit met 70%, geeft u meer tijd om voor uw gezin te zorgen en van het leven te genieten.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Brengt browsen met tabbladen en bewerken naar Microsoft Office, veel krachtiger dan de tabbladen van de browser

  • Office-tabblad is ontworpen voor Word, Excel, PowerPoint en andere Office-toepassingen: Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
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.