Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izračunati starost pred 1 / 1 / 1900 v Excelu?

V Excelu datuma pred 1 / 1 / 1900 ni mogoče vpisati in izračunati pravilno. Če želite izračunati starost osebe, ki se je rodila in umrla pred 1 / 1 / 1900, to v splošnem ne bi dobilo pravilnega izračuna v Excelu. Toda v tem članku vam lahko trik pomaga izračunati starost pred 1 / 1 / 1900 v Excelu.

Izračunajte starost pred 1 / 1 / 1900 z VBA

Izračunajte starost po rojstni dan z Kutools za Excel dobra ideja3


Izračunajte starost glede na rojstni dan

Tukaj imate na primer seznam rojstnih dni in ste kdaj poskusili izračunati starost, ki temelji na tem rojstnem dnevu? Kutools za Excel's Izračunajte starost glede na rojstni dan vam lahko lepo uslugo.
doc izračun starosti

puščica modra desno mehurček Izračunajte starost pred 1 / 1 / 1900 z VBA


Tukaj je koda VBA, ki vam lahko pomaga hitro izračunati starost pred 1 / 1 / 1900.

Kutools za Excel, z več kot 120 priročne funkcije Excel, izboljša delovno učinkovitost in prihranite čas dela.

1. Izberite prazno celico in vnesite rojstni dan osebe in nato izberite drugo celico, da vnesete datum današnjega dne ali datum osebe umre, ko potrebujete. Prikaz slike:
doc izračuna starost pred 1900 1

2. Nato pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

3. klik Vstavi > Moduli, prilepite pod VBA v novo Moduli okno.

VBA: izračunajte starost pred 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. Izberite prazno celico, tukaj je C2 in vnesite to formulo = StarostFunc (A2, B2) (A2 je rojstni dan, B2 pa je končni datum) in pritisnite Vnesite ključ, da dobite starost, in ročico samodejnega izpolnjevanja povlecite nad celice, ki jih potrebujete. Prikaz slike:
doc izračuna starost pred 1900 2

Opomba: Ta VBA lahko izračuna samo starost z datumi v obliki mm / dd / llll, na primer 6 / 23 / 1845.


puščica modra desno mehurček Izračunajte starost po rojstni dan z Kutools za Excel

Če so rojstni dnevi običajno po 1 / 1 / 1900, lahko zaprosite Kutools za ExcelJe Izračunajte starost glede na rojstni dan korist, ki lahko hitro izračunajo starost za dan rojstnih dni.

Kutools za Excel, z več kot 120 priročne funkcije Excel, izboljša delovno učinkovitost in prihranite čas dela.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite prazno celico, ki ji želite poslati starost, in kliknite Kutools > Formule > Izračunajte starost glede na rojstni dan. Prikaz slike:
doc izračuna starost pred 1900 3

2. Potem v Formula Helper pogovorno okno, izberite rojstni dan, za katerega želite izračunati starost, ki temelji na Datum textbox. Prikaz slike:
doc izračuna starost pred 1900 4

3. klik Ok da uporabite to formulo, zdaj pa lahko vidite, da je bila starost prikazana. In če je potrebno, lahko ročico samodejnega izpolnjevanja povlečete na celice, ki so potrebne za to formulo. Prikaz slike:
doc izračuna starost pred 1900 5

bodite pozorni1Če vas zanima ta dodatek, prenesite brezplačni preskus 60-dni.

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.