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

Normalmente, podemos calcular con rapidez y facilidad el número de días entre dos fechas en una hoja de cálculo de Excel, pero, ¿ha intentado alguna vez obtener el número de días entre dos fechas dadas en un documento de Word?

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

Calcular la diferencia entre dos horas en un documento de Word con código VBA

---

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

Para calcular el número de días entre dos fechas dadas, el siguiente código VBA le será de gran ayuda. Siga estos sencillos pasos:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. A continuación, haz clic en Insertar > Módulo y copia y pega el siguiente código en el módulo en blanco que se abre:

Código VBA: Calcular 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. A continuación, pulse la tecla F5 para ejecutar este código. En los cuadros de diálogo consecutivos, introduzca la fecha de inicio y la fecha de fin que desee utilizar; consulte la captura de pantalla:

4. A continuación, haga clic en el botón Aceptar y obtendrá el resultado deseado; consulte la captura de pantalla:

---

Calcular la diferencia entre dos horas en un documento de Word con código VBA

A continuación, le presentamos otro código VBA que le permite calcular la diferencia entre dos horas dadas. Siga estos sencillos pasos:

1. Mantenga pulsadas las teclas ALT + F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. A continuación, haga clic en Insertar>Módulo, y copie y pegue el siguiente código en el módulo en blanco que se abre:

Código VBA: Calcular la diferencia entre dos horas

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. A continuación, pulse la tecla F5 para ejecutar este código. En los cuadros de diálogo consecutivos, introduzca la hora de inicio y la hora de finalización que desee utilizar para calcular la diferencia; consulte la captura de pantalla:

4. A continuación, haga clic en el botón Aceptar y la diferencia horaria entre las dos horas indicadas se calculará y mostrará tal como se muestra en la siguiente captura de pantalla: