Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿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 manera rápida y sencilla, pero, ¿alguna vez ha intentado obtener el número de días entre dos fechas en un documento de Word?

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

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


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

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

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

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

Código 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 clave 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:

doc calculo dias xnumx

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

doc calculo dias xnumx


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

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

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

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

Código VBA: calcula la diferencia entre dos veces

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 clave 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:

doc calculo dias xnumx

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:

doc calculo dias xnumx



Herramientas recomendadas de productividad de palabras

Kutools para Word: más que funciones avanzadas de 100 para Word, ahorre su% de tiempo de 50

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, una colección de herramientas para conversiones y selección comunes, y así sucesivamente ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.