Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-04

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 para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

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

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

Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

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

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

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

Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...

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

Melhores Ferramentas de Produtividade para Office

Kutools para Word – 100+ Ferramentas para Word