Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come calcolare giorni o ore tra due date o ore nel documento di Word?

Normalmente, possiamo calcolare il numero di giorni tra due date in un foglio di lavoro Excel in modo rapido e semplice, ma hai mai provato a ottenere il numero di giorni tra due date date in un documento di Word?

Calcola la differenza tra due date nel documento Word con codice VBA

Calcola la differenza tra due volte nel documento di Word con codice VBA


Calcola la differenza tra due date nel documento Word con codice VBA

Per calcolare il numero di giorni tra due date date, il codice VBA di seguito può farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare clic su inserire > Modulo, copia e incolla sotto il codice nel modulo vuoto aperto:

Codice VBA: calcola la differenza tra due date

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. E poi, premi F5 chiave per eseguire questo codice, nelle finestre di dialogo consecutive, inserisci la data di inizio e la data di fine che desideri utilizzare, vedi screenshot:

doc calcola i giorni 1

4. Quindi, fare clic OK pulsante e otterrai il risultato desiderato, vedi screenshot:

doc calcola i giorni 2


Calcola la differenza tra due volte nel documento di Word con codice VBA

Ecco un altro codice VBA che può aiutarti a calcolare la differenza tra due date volte, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare clic su inserire > Modulo, copia e incolla sotto il codice nel modulo vuoto aperto:

Codice VBA: calcola la differenza tra due volte

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. E poi, premi F5 chiave per eseguire questo codice, nelle finestre di dialogo consecutive, immettere l'ora di inizio e l'ora di fine che si desidera utilizzare per calcolare la differenza, vedere screenshot:

doc calcola i giorni 3

4. Quindi, fare clic OK e la differenza di tempo tra due orari dati è stata calcolata e visualizzata come mostrato nella seguente schermata:

doc calcola i giorni 4


Strumenti di produttività Word consigliati

 

Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo

  • Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
  • Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
  • Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
  • Suddividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
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.