Como calcular os dias ou horas entre duas datas ou horários num documento do Word?

Normalmente, conseguimos calcular rápida e facilmente o número de dias entre duas datas numa folha de cálculo do Excel — mas já alguma vez tentou obter o número de dias entre duas datas indicadas num documento do Word?

Calcular a diferença entre duas datas num documento do Word com código VBA

Calcular a diferença entre dois horários num documento do Word com código VBA

---

Calcular a diferença entre duas datas num documento do Word com código VBA

Para calcular o número de dias entre duas datas indicadas, o código VBA abaixo pode ajudá-lo. Siga estes passos:

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

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

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. Em seguida, prima a tecla F5 para executar este código. Nas caixas de diálogo consecutivas, introduza a data de início e a data de término que pretende utilizar; veja a captura de ecrã:

4. Depois, clique no botão OK e obterá o resultado pretendido — veja a captura de ecrã:

---

Calcular a diferença entre dois horários num documento do Word com código VBA

Aqui está outro código VBA que o pode ajudar a calcular a diferença entre dois horários indicados. Siga os passos abaixo:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do 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. Em seguida, prima a tecla F5 para executar este código. Nas caixas de diálogo seguintes, introduza a hora de início e a hora de fim que pretende utilizar para calcular a diferença; veja a captura de ecrã:

4. Depois, clique no botão OK e a diferença horária entre os dois horários indicados será calculada e apresentada, como mostra a seguinte captura de ecrã: