Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como calcular dias ou horas entre duas datas ou horários em um Documento do Word?

Author: Xiaoyang Last Modified: 2025-08-26

Normalmente, podemos calcular o número de dias entre duas datas rapidamente e facilmente em uma planilha do Excel, mas você já tentou obter o número de dias entre duas datas fornecidas em um Documento do Word?

Calcular a diferença entre duas datas em um Documento do Word com código VBA

Calcular a diferença entre dois horários em um Documento do Word com código VBA


Calcular a diferença entre duas datas em um Documento do Word com código VBA

Para calcular o número de dias entre duas datas fornecidas, o código VBA abaixo pode ajudá-lo, por favor, faça o seguinte:

1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique em Inserir > Módulo, copie e cole o código abaixo no módulo em branco aberto:

Código VBA: Calcular a diferença entre duas datas

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. Depois disso, pressione a tecla F5 para executar este código; nas caixas de diálogo consecutivas, insira a data de início e a data de término que deseja usar, veja a captura de tela:

Enter the start and end date

4. Em seguida, clique no botão OK, e você obterá o resultado desejado, veja a captura de tela:

Pop-up displaying days between the two dates


Calcular a diferença entre dois horários em um Documento do Word com código VBA

Aqui está outro código VBA que pode ajudá-lo a calcular a diferença entre dois horários fornecidos, por favor, faça o seguinte:

1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique em Inserir > Módulo, copie e cole o código abaixo no módulo em branco aberto:

Código VBA: Calcular a diferença entre dois horários

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. Depois disso, pressione a tecla F5 para executar este código; nas caixas de diálogo consecutivas, insira o horário de início e o horário de término que deseja usar para calcular a diferença, veja a captura de tela:

Enter the start and end time

4. Em seguida, clique no botão OK, e a diferença de tempo entre os dois horários fornecidos será calculada e exibida conforme mostrado na captura de tela a seguir:

Pop-up displaying time difference between the two times

Melhores Ferramentas de Produtividade para Office

Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!

🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools for Word agora! 🚀
 

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word