Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս հաշվարկել 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 այս կոդը գործարկելու համար ստեղնը `իրար հաջորդող երկխոսության դաշտերում, մուտքագրեք մեկնարկի ամսաթիվը և ավարտի ամսաթիվը, որը ցանկանում եք օգտագործել, տե՛ս նկարը.

փաստաթուղթը հաշվարկի օրերը 1

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

փաստաթուղթը հաշվարկի օրերը 2


Հաշվարկել 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 այս կոդը գործարկելու համար ստեղնը `իրար հաջորդող երկխոսության դաշտերում, մուտքագրեք մեկնարկի և ավարտի ժամանակը, որը ցանկանում եք օգտագործել տարբերությունը հաշվարկելու համար: Տեսեք,

փաստաթուղթը հաշվարկի օրերը 3

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

փաստաթուղթը հաշվարկի օրերը 4


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools for Word - Ավելի քան 100 առաջադեմ գործառույթներ Word- ի համար, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.