Skip to main content

Conas laethanta nó uair an chloig idir dhá dháta nó amanna a ríomh In Word doiciméad?

De ghnáth, is féidir linn líon na laethanta idir dhá dháta a ríomh i Excel bileog oibre go tapa agus go héasca, ach, an ndearna tú iarracht riamh líon na laethanta idir dhá dháta tugtha a fháil in a Word doiciméad?

Ríomh an difríocht idir dhá dháta i Word doiciméad le cód VBA

Ríomh an difríocht idir dhá uair in Word doiciméad le cód VBA


Ríomh an difríocht idir dhá dháta i Word doiciméad le cód VBA

Chun líon na laethanta idir dhá dháta ar leith a ríomh, is féidir leis an gcód VBA thíos fabhar a dhéanamh duit, déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte:

Cód VBA: Ríomh an difríocht idir dhá dháta

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. Agus ansin, brúigh F5 eochair chun an cód seo a rith, sna boscaí dialóige comhleanúnacha, iontráil an dáta tosaigh agus an dáta deiridh a theastaíonn uait a úsáid, féach an scáileán:

doc laethanta 1 a ríomh

4. Ansin, cliceáil OK cnaipe, agus gheobhaidh tú an toradh a theastaíonn uait, féach an scáileán:

doc laethanta 2 a ríomh


Ríomh an difríocht idir dhá uair in Word doiciméad le cód VBA

Seo cód VBA eile a chabhróidh leat an difríocht idir dhá uair ar leith a ríomh, déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte:

Cód VBA: Ríomh an difríocht idir dhá uair

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. Agus ansin, brúigh F5 eochair chun an cód seo a rith, sna boscaí dialóige comhleanúnacha, iontráil an t-am tosaigh agus an t-am deiridh a theastaíonn uait a úsáid chun difríocht a ríomh, féach an scáileán:

doc laethanta 3 a ríomh

4. Ansin, cliceáil OK cnaipe, agus rinneadh an difríocht ama idir dhá uair ar leith a ríomh agus a thaispeáint mar a thaispeántar ar an scáileán a leanas:

doc laethanta 4 a ríomh


molta Word Uirlisí Táirgiúlachta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

  • Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
  • Cuir isteach íomhánna iolracha trasna fillteáin isteach Word doiciméad láithreach.
  • Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
  • Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
  • Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations