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
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:
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:
Nodyn: Dim ond oedrannau â dyddiadau ar ffurf mm / dd / bbbb y gall y VBA hwn eu cyfrif, fel 6/23/1845.
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 isod:
1. Dewiswch gell wag rydych chi am allbwn yr oedran, a chlicio Kutools > Cynorthwyydd Fformiwla > Cynorthwyydd Dyddiad ac Amser. Gweler y screenshot:
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:
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:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!