Note: The other languages of the website are Google-translated. Back to English
English English

Sut i gyfrifo oedran cyn 1/1/1900 yn Excel?

Yn Excel, ni ellir nodi'r dyddiad cyn 1/1/1900 a'i gyfrif yn gywir. Os ydych chi eisiau cyfrifo oedran person a gafodd ei eni a'i farw cyn 1/1/1900, ni fyddai hynny'n cael y cyfrifiad cywir yn Excel yn gyffredinol. Ond yma yn yr erthygl hon, gall tric eich helpu chi i gyfrifo'r oedran cyn 1/1/1900 yn Excel.

Cyfrifwch oedran cyn 1/1/1900 gyda VBA

Cyfrifwch oedran yn ôl pen-blwydd gyda Kutools ar gyfer Excel syniad da3


swigen dde glas saeth Cyfrifwch oedran cyn 1/1/1900 gyda VBA

Dyma god VBA a all eich helpu i gyfrifo'r oedran yn gyflym cyn 1/1/1900.

1. Dewiswch gell wag a nodi pen-blwydd y person, ac yna dewiswch gell arall i nodi dyddiad heddiw, neu ddyddiad y person sy'n marw yn ôl yr angen. Gweler y screenshot:
doc cyfrifo oedran cyn 1900 1

2. Yna pwyswch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, pastiwch islaw VBA i'r newydd Modiwlau ffenestr.

VBA: Cyfrifwch oedran cyn 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. Dewiswch gell wag, dyma C2, a nodwch y fformiwla hon = AgeFunc (A2, B2) (A2 yw'r pen-blwydd, a'r B2 yw'r dyddiad gorffen), a gwasgwch Rhowch allwedd i gael yr oedran, a llusgo handlen autofill i dros y celloedd sydd eu hangen arnoch. Gweler y screenshot:
doc cyfrifo oedran cyn 1900 2

Nodyn: Dim ond oedrannau â dyddiadau ar ffurf mm / dd / bbbb y gall y VBA hwn eu cyfrif, fel 6/23/1845.


swigen dde glas saeth Cyfrifwch oedran yn ôl pen-blwydd gyda Kutools ar gyfer Excel

Os yw'r dyddiadau pen-blwydd fel arfer ar ôl 1/1/1900, gallwch wneud cais Kutools ar gyfer Excel'S Cynorthwyydd Dyddiad ac Amser cyfleustodau, a all gyfrifo'r oedran yn gyflym erbyn y penblwyddi a roddir.

Kutools ar gyfer Excel, gyda mwy na
300
swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Dewiswch gell wag rydych chi am allbwn yr oedran, a chlicio Kutools > Cynorthwyydd Fformiwla > Cynorthwyydd Dyddiad ac Amser. Gweler y screenshot:
doc cyfrifo oedran cyn 1900 3

2. Yna yn y Cynorthwyydd Dyddiad ac Amser deialog, gwiriwch yr opsiwn Oedran, dewiswch y pen-blwydd rydych chi am ei gyfrifo oedran yn seiliedig ar y dyddiad Geni blwch testun, diofyn, bydd y gell yn cael ei dewis fel cyfeirnod absoliwt, gallwch ei newid i gyfeirnod perthnasedd, yna gwirio Heddiw opsiwn a dewis un math o ganlyniad rydych chi am ei ddangos yn y gwymplen o Math o ganlyniad allbwn. Gweler y screenshot:
doc cyfrifo oedran cyn 1900 4

3. Cliciwch Ok i gymhwyso'r fformiwla hon, a nawr gallwch weld bod yr oedran wedi'i ddangos. Ac os oes angen, gallwch lusgo'r handlen autofill i dros y celloedd sydd eu hangen ar y fformiwla hon. Gweler y screenshot:
doc cyfrifo oedran cyn 1900 5


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
peidiwch â gweithio excel dywedwch "nombre Ambiguo"
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL