Ինչպե՞ս Excel- ում հաշվարկել տարիքը մինչև 1/1/1900:
Excel- ում չի կարելի մուտքագրել և ճիշտ հաշվարկել ամսաթիվը մինչև 1/1/1900 թվականը: Եթե ցանկանում եք հաշվարկել այն անձի տարիքը, որը ծնվել և մահացել է մինչև 1/1/1900 թվականը, դա, ընդհանուր առմամբ, չի ստանա ճիշտ հաշվարկ Excel- ում: Բայց այս հոդվածում մի հնարք կարող է օգնել Excel- ում հաշվարկել տարիքը մինչև 1/1/1900:
Հաշվարկեք տարիքը մինչև 1/1/1900 VBA- ով
Հաշվարկեք տարիքը ըստ ծննդյան օրվա Excel- ի համար Kutools- ի միջոցով
Հաշվարկեք տարիքը մինչև 1/1/1900 VBA- ով
Ահա VBA կոդը կարող է օգնել ձեզ արագ հաշվարկել տարիքը մինչև 1/1/1900:
1. Ընտրեք դատարկ բջիջ և մուտքագրեք անձի ծննդյան օրը, և այնուհետև ընտրեք մեկ այլ բջիջ `մուտքագրելու այսօրվա ամսաթիվը կամ անձի մահվան ամսաթիվը, որքան ձեզ հարկավոր է: Տեսեք,
2. Դրանից հետո սեղմեք Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
3: սեղմեք Տեղադրել > Մոդուլներ, տեղադրեք VBA- ի ներքևում նորը Մոդուլներ պատուհան.
VBA. Հաշվարկել տարիքը մինչև 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. Ընտրեք դատարկ բջիջ, ահա C2 և մուտքագրեք այս բանաձևը = AgeFunc (A2, B2) (A2- ը ծննդյան օրն է, իսկ B2- ը `ավարտի ամսաթիվը), և սեղմեք Մտնել տարիքը ստանալու բանալին և ինքնալրացման բռնիչը քաշեք դեպի ձեզ անհրաժեշտ բջիջները: Տեսեք,
Նշում: Այս VBA- ն կարող է հաշվարկել ամսաթվերով տարիքը միայն մմ / դդ / տարեկանի ձևաչափով, օրինակ ՝ 6/23/1845:
Հաշվարկեք տարիքը ըստ ծննդյան օրվա Excel- ի համար Kutools- ի միջոցով
Եթե ծննդյան տարեթվերը սովորաբար լինում են 1/1/1900 թվականից հետո, կարող եք դիմել Excel- ի համար նախատեսված գործիքներ'S Ամսաթիվ և ժամ օգնական օգտակար, որը կարող է արագ հաշվարկել տարիքն ըստ տվյալ ծննդյան տոների:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1. Ընտրեք դատարկ բջիջ, որը ցանկանում եք թողարկել տարիքը և սեղմել Կուտոլս > Բանաձևի օգնական > Ամսաթիվ և ժամ օգնական, Տեսեք,
2. Հետո Ամսաթիվ և ժամ օգնական երկխոսություն, ստուգեք Տարիքը տարբերակը, ընտրեք այն ծննդյան օրը, որի վրա ցանկանում եք հաշվել տարիքը `ելնելով Ամսաթիվ ծննդյան տեքստային տուփ, լռելյայն, բջիջը կընտրվի որպես բացարձակ տեղեկանք, այն կարող եք փոխել relatiev տեղեկանքի, ապա ստուգել այսօր տարբերակը և ընտրեք արդյունքի մեկ տեսակ, որը ցանկանում եք ցուցադրել բացվող ցուցակում Արդյունքի արդյունքի տեսակը, Տեսեք,
3: սեղմեք Ok կիրառել այս բանաձևը, և այժմ կտեսնեք, որ տարիքը ցույց է տրվել: Եվ եթե ձեզ հարկավոր է, կարող եք ինքնալրացման բռնիչը քաշել դեպի այս բանաձևի համար անհրաժեշտ բջիջները: Տեսեք,
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: