Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come calcolare i giorni o le ore tra due date o orari in un documento Word?

Author Xiaoyang Last modified

Normalmente, possiamo calcolare rapidamente e facilmente il numero di giorni tra due date in un foglio di lavoro Excel, ma avete mai provato a ottenere il numero di giorni tra due date specifiche in un documento Word?

Calcola la differenza tra due date in un documento Word con il codice VBA

Calcola la differenza tra due orari in un documento Word con il codice VBA

Calcola la differenza tra due date in un documento Word con il codice VBA

Per calcolare il numero di giorni tra due date specifiche, il seguente codice VBA può esserti utile, procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Successivamente, clicca su Inserisci > Modulo, copia e incolla il codice sottostante nel modulo vuoto appena 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. Successivamente, premi il tasto F5 per eseguire questo codice; nelle finestre di dialogo consecutive, inserisci la data di inizio e la data di fine che desideri utilizzare, vedi screenshot:

Enter the start and end date

4. Quindi, clicca sul pulsante OK e otterrai il risultato desiderato, vedi screenshot:

Pop-up displaying days between the two dates

Calcola la differenza tra due orari in un documento Word con il codice VBA

Ecco un altro codice VBA che può aiutarti a calcolare la differenza tra due orari specificati, procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Successivamente, clicca su Inserisci > Modulo, copia e incolla il codice sottostante nel modulo vuoto appena aperto:

Codice VBA: Calcola la differenza tra due orari

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. Successivamente, premi il tasto F5 per eseguire questo codice; nelle finestre di dialogo consecutive, inserisci l'orario di inizio e l'orario di fine che desideri utilizzare per calcolare la differenza, vedi screenshot:

Enter the start and end time

4. Quindi, clicca sul pulsante OK e la differenza di tempo tra due orari specificati verrà calcolata e visualizzata come mostrato nello screenshot seguente:

Pop-up displaying time difference between the two times

I migliori strumenti per la produttività in ufficio

Kutools for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...

✏ Modifica del Testo: Trova e Sostituisci in batch su più file / Ridimensiona tutte le Immagini / Trasponi Righe e Colonne della Tabella / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...

⭐ Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools for Word! 🚀
 

✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!

Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint

📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività

I migliori strumenti per la produttività in ufficio

Kutools for Word - 100+ strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools