Ինչպե՞ս հաշվարկել Word- ի փաստաթղթում օրերի կամ ժամերի երկու ամսաթվերի կամ ժամերի միջև:

Սովորաբար, մենք կարող ենք արագ և հեշտությամբ հաշվարկել Excel- ի աշխատանքային թերթի երկու ամսաթվերի օրերի քանակը, բայց, երբևէ փորձե՞լ եք Word փաստաթղթում գտնել երկու ամսաթվերի արանքում օրերի քանակը:

Հաշվեք Word ամսագրի երկու ամսաթվերի միջև տարբերությունը VBA կոդով

Հաշվարկել VBA կոդով Word փաստաթղթում երկու անգամների տարբերությունը

Հաշվեք Word ամսագրի երկու ամսաթվերի միջև տարբերությունը VBA կոդով

Երկու տվյալ ամսաթվերի միջև օրերի քանակը հաշվարկելու համար ստորև ներկայացված VBA կոդը կարող է ձեզ լավություն բերել, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.

VBA կոդ. Հաշվիր երկու ամսաթվերի միջև տարբերությունը

Sub CalculateDateDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xDay As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start date", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end date", "KuTools for Word", "")
   If (InStr(1, Str(xStartDate), ":") > 0) Or (InStr(1, Str(xEndDate), ":") > 0) Then
        MsgBox "please input current date", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xDay = DateDiff("d", xStartDate, xEndDate)
    MsgBox "There are " & xDay & " days left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3, Եվ հետո, սեղմեք F5 այս կոդը գործարկելու համար ստեղնը `իրար հաջորդող երկխոսության դաշտերում, մուտքագրեք մեկնարկի ամսաթիվը և ավարտի ամսաթիվը, որը ցանկանում եք օգտագործել, տե՛ս նկարը.

4, Դրանից հետո կտտացրեք OK կոճակը, և դուք կստանաք ձեր ուզած արդյունքը, տես նկարի նկարը.

Հաշվարկել VBA կոդով Word փաստաթղթում երկու անգամների տարբերությունը

Ահա ևս մեկ VBA կոդ, որը կարող է օգնել ձեզ հաշվարկել տարբերությունը երկու տրված ժամանակների միջև, խնդրում եմ արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.

VBA կոդ. Հաշվիր երկու անգամի միջև տարբերությունը

Sub CalculateTimeDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xTime As Long
    Dim xHour As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start time", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end time", "KuTools for Word", "")
    Debug.Print Str(xStartDate)
    If (Str(xStartDate) = " 0:00:00") Or (Str(xEndDate) = " 0:00:00") _
    Or (Str(xStartDate) = " 12:00:00 AM") Or (Str(xEndDate) = " 12:00:00 AM") Then
        MsgBox "please input the time", vbInformation, "KuTools for Excel"
        Exit Sub
    ElseIf xStartDate > xEndDate Then
        MsgBox " The start time is not larger than the end time!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xTime = DateDiff("s", xStartDate, xEndDate)
    xHour = xTime \ 3600
    xTime = xTime - xHour * 3600
    MsgBox "There are " & xHour & " hours " & xTime \ 60 & " minutes " & xTime - (xTime \ 60) * 60 _
            & " seconds left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3, Եվ հետո, սեղմեք F5 այս կոդը գործարկելու համար ստեղնը `իրար հաջորդող երկխոսության դաշտերում, մուտքագրեք մեկնարկի և ավարտի ժամանակը, որը ցանկանում եք օգտագործել տարբերությունը հաշվարկելու համար: Տեսեք,

4, Դրանից հետո կտտացրեք OK կոճակը, և տրված երկու ժամանակների ժամանակի տարբերությունը հաշվարկվել և ցուցադրվել է որպես ցույց տրված հետևյալ նկարը.

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀

Անվճար ներբեռնում     Կարդալ ավելին     Գնել հիմա XNUMX