¿Cómo calcular días u horas entre dos fechas u horas en un documento de Word?

Normalmente, podemos calcular el número de días entre dos fechas en la hoja de cálculo de Excel de forma rápida y sencilla, pero, ¿alguna vez ha intentado obtener el número de días entre dos fechas determinadas en un documento de Word?

Calcule la diferencia entre dos fechas en un documento de Word con código VBA

Calcule la diferencia entre dos tiempos en un documento de Word con código VBA

---

Calcule la diferencia entre dos fechas en un documento de Word con código VBA

Para calcular la cantidad de días entre dos fechas determinadas, el siguiente código VBA puede hacerle un favor, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código de VBA: calcula la diferencia entre dos fechas

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. Y luego, presione F5 para ejecutar este código, en los cuadros de diálogo consecutivos, ingrese la fecha de inicio y la fecha de finalización que desea usar, vea la captura de pantalla:

4. Luego, haz clic OK botón, y obtendrá el resultado que desea, vea la captura de pantalla:

---

Calcule la diferencia entre dos tiempos en un documento de Word con código VBA

Aquí hay otro código VBA que puede ayudarlo a calcular la diferencia entre dos tiempos dados, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código de VBA: calcula la diferencia entre dos tiempos

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. Y luego, presione F5 para ejecutar este código, en los cuadros de diálogo consecutivos, ingrese la hora de inicio y la hora de finalización que desea usar para calcular la diferencia, vea la captura de pantalla:

4. Luego, haz clic OK , y la diferencia de tiempo entre dos tiempos dados se ha calculado y mostrado como se muestra en la siguiente captura de pantalla: