Note: The other languages of the website are Google-translated. Back to English

Sut i gyfrifo diwrnodau neu oriau rhwng dau ddyddiad neu amser Yn nogfen Word?

Fel rheol, gallwn gyfrifo nifer y diwrnodau rhwng dau ddyddiad yn nhaflen waith Excel yn gyflym ac yn hawdd, ond, a ydych erioed wedi ceisio cael nifer y diwrnodau rhwng dau ddyddiad penodol mewn dogfen Word?

Cyfrifwch y gwahaniaeth rhwng dau ddyddiad yn nogfen Word gyda chod VBA

Cyfrifwch y gwahaniaeth rhwng dwywaith yn nogfen Word gyda chod VBA


Cyfrifwch y gwahaniaeth rhwng dau ddyddiad yn nogfen Word gyda chod VBA

I gyfrifo nifer y diwrnodau rhwng dau ddyddiad penodol, gall y cod VBA isod ffafrio chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:

Cod VBA: Cyfrifwch y gwahaniaeth rhwng dau ddyddiad

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. Ac yna, pwyswch F5 allwedd i redeg y cod hwn, yn y blychau deialog yn olynol, nodwch y dyddiad cychwyn a'r dyddiad gorffen rydych chi am eu defnyddio, gweler y screenshot:

doc cyfrif diwrnodau 1

4. Yna, cliciwch OK botwm, a byddwch yn cael y canlyniad yr ydych ei eisiau, gweler y screenshot:

doc cyfrif diwrnodau 2


Cyfrifwch y gwahaniaeth rhwng dwywaith yn nogfen Word gyda chod VBA

Dyma god VBA arall a all eich helpu i gyfrifo'r gwahaniaeth rhwng dwy amser penodol, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:

Cod VBA: Cyfrifwch y gwahaniaeth rhwng dwywaith

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. Ac yna, pwyswch F5 allwedd i redeg y cod hwn, yn y blychau deialog yn olynol, nodwch yr amser cychwyn a'r amser gorffen yr ydych am eu defnyddio i gyfrifo gwahaniaeth, gweler y screenshot:

doc cyfrif diwrnodau 3

4. Yna, cliciwch OK botwm, ac mae'r gwahaniaeth amser rhwng dwy amser penodol wedi'i gyfrifo a'i arddangos fel y dangosir ar-lein:

doc cyfrif diwrnodau 4


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir