Այս հոդվածում մենք ուզում ենք ձեզ ներկայացնել 2 արագ և արդյունավետ եղանակ՝ Word մակրոների միջոցով 2 կոնկրետ ամսաթվերի կամ ժամերի միջև տարբերությունը պարզելու համար:
Երկու կոնկրետ ամսաթվերի կամ ժամերի միջև մնացած օրերը կամ ժամանակը հաշվարկելը դժվարություն չի ներկայացնում: Դուք կարող եք կամ ինքնուրույն կատարել մաթեմատիկան կամ ստանալ ամսաթվի կամ ժամի տևողության հաշվիչ: Եվ այստեղ մենք ուզում ենք ձեզ ցույց տալ 2 մակրո եղանակներ, որոնք թույլ են տալիս ստանալ Word-ում ամսաթիվը կամ ժամի տարբերությունը: Հետևյալը մանրամասն քայլերն են.
Ստացեք ամսաթվի տարբերությունը
- Առաջին հերթին բացեք Word-ը։
- Այնուհետև սեղմեք «Developer» ներդիրը, եթե այն արդեն ակտիվացված է:
- Հաջորդը, սեղմեք «Visual Basic»՝ VBA խմբագրիչը բացելու համար: Դուք կարող եք անդրադառնալ Ինչպես ներմուծել ֆոնային երաժշտություն ձեր Word փաստաթղթում ժապավենին «Developer» ավելացնելու համար: Կամ կարող եք նաև սեղմել «Alt+ F11»-ի փոխարեն, եթե նախընտրում եք ոչ:
- Այժմ կտտացրեք «Նորմալ» և ապա «Տեղադրել»:
- Ցանկի ցանկում ընտրեք «Մոդուլ»:
- Հաջորդը, կրկնակի սեղմեք նոր մոդուլի վրա՝ խմբագրման տարածք մուտք գործելու համար:
- Տեղադրեք հետևյալ կոդերը.
Sub CalculateDateDifference()
Dim dtStartDate As Date
Dim dtEndDate As Date
Dim lDaysLeft As Long
' Input the start date and end date, calculate the date difference.
dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)
' Output the calculate the date difference between the two dates.
MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub
- Կոդերը գործարկելու համար սեղմեք «Գործարկել»:
- Հիմա դուք կտեսնեք «Սկսման ամսաթիվ» երկխոսության պատուհանը: Մուտքագրեք մեկնարկի ամսաթիվը տեքստային դաշտում և սեղմեք «Լավ»:
- Հաջորդը կա «Ավարտի ամսաթիվ» երկխոսության տուփը: Նմանապես, մուտքագրեք ավարտի ամսաթիվը և սեղմեք «OK»:
- Այնուհետև կհայտնվի հաղորդագրության տուփ, որը ցույց է տալիս 2 ամսաթվերի տարբերությունը:
Այն դեպքում, երբ դուք պետք է արդյունքը մտցնեք ձեր փաստաթղթում, կարող եք մի փոքր խմբագրել մակրոն՝ փոխելով ծածկագրի տողը «MsgBox («Մնացել են » & lDaysLeft & » օրեր « & dtStartDate & » մինչև » & dtEndDate & vbCrLf)"To"Selection.Text = “Մնացել են” & lDaysLeft & ” օրեր ” & dtStartDate & ” մինչև ” & dtEndDate & vbCrLf".
Ստացեք ժամանակի տարբերությունը
- Նախ կրկնեք վերը նշված առաջին 6 քայլերը:
- Այնուհետև դրա փոխարեն տեղադրեք այս կոդերը.
Sub CalculateTimeDifference()
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the start time and the end time.
dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00")
dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub
- Մի մոռացեք հարվածել «Run»:
- «Սկսման ժամ» դաշտում մուտքագրեք մեկնարկի ժամը, օրինակ՝ «18:00:00»:
- Այնուհետև մուտքագրեք ավարտի ժամանակը «Վերջի ժամանակ» երկխոսության դաշտում և սեղմեք «OK»: Եվ դուք կարող եք ստուգել արդյունքը առաջիկա հաղորդագրությունների վանդակում:
Մեղմացնել ֆայլերի կորստի ռիսկը
Ժամանակ առ ժամանակ, Word-ը կարող է դադարեցնել անսպասելի աշխատանքը՝ թողնելով մեր ֆայլերը մեծ վտանգի տակ: Հետևաբար, ֆայլերի վնասվելու հավանականությունը նվազեցնելու համար առաջարկում ենք կանոնավոր կրկնօրինակումներ կատարել: Նաև ստացեք ա Word ֆայլի վերականգնման արտադրանք անհրաժեշտ է, երբ դուք հայտնվում եք կոտրված ֆայլերը շտկելու կարիքի մեջ:
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում Excel xls տվյալների վերանորոգման գործիք և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com