En este artículo, queremos presentarle 2 formas rápidas y eficientes de obtener la diferencia entre 2 fechas u horas específicas a través de macros de Word.
Calcular los días o el tiempo que quedan entre 2 fechas u horas concretas no supone ninguna dificultad. Puede hacer los cálculos usted mismo u obtener una calculadora de duración de fecha o tiempo. Y aquí queremos mostrarle las 2 formas macro que le permiten obtener la diferencia de fecha o hora en Word. Los siguientes son los pasos detallados:
Obtenga la diferencia de fecha
- En primer lugar, abre Word.
- Luego haga clic en la pestaña "Desarrollador" si ya está activada.
- A continuación, haga clic en "Visual Basic" para abrir el editor de VBA. Puede referirse a Cómo insertar música de fondo en su documento de Word para agregar "Revelador" a la cinta. O también puede presionar "Alt + F11" en su lugar si prefiere no hacerlo.
- Ahora haga clic en "Normal" y luego en "Insertar".
- En el menú de la lista, elija "Módulo".
- A continuación, haga doble clic en el nuevo módulo para ingresar al área de edición.
- Pega los siguientes códigos:
Sub CalculateDateDifference()
Dim dtStartDate As Date
Dim dtEndDate As Date
Dim lDaysLeft As Long
' Input the start date and end date, calculate the date difference.
dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)
' Output the calculate the date difference between the two dates.
MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub
- Haga clic en "Ejecutar" para ejecutar los códigos.
- Ahora verá un cuadro de diálogo llamado "Fecha de inicio". Introduzca la fecha de inicio en el cuadro de texto y haga clic en "Aceptar".
- Luego está el cuadro de diálogo "Fecha de finalización". Del mismo modo, ingrese la fecha de finalización y haga clic en "Aceptar".
- Luego, aparecerá un cuadro de mensaje que indica la diferencia entre las 2 fechas.
En caso de que necesite insertar el resultado en su documento, puede editar la macro un poco cambiando la línea de código "MsgBox (“Quedan ” & lDaysLeft & ” días desde ” & dtStartDate & ” hasta ” & dtEndDate & vbCrLf)" a "Selection.Text = “Quedan ” & lDaysLeft & ” días desde ” & dtStartDate & ” hasta ” & dtEndDate & vbCrLf.
Obtenga la diferencia horaria
- Primero repita los primeros 6 pasos anteriores.
- Luego pegue estos códigos en su lugar:
Sub CalculateTimeDifference()
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the start time and the end time.
dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00")
dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub
- Recuerde presionar "Ejecutar".
- En el cuadro “Hora de inicio”, introduzca la hora de inicio, por ejemplo “18:00:00”.
- Luego escriba la hora de finalización en el cuadro de diálogo "Hora de finalización" y haga clic en "Aceptar". Y puede comprobar el resultado en el cuadro de mensaje que aparece.
Mitigar el riesgo de pérdida de archivos
De vez en cuando, Word puede dejar de funcionar de la nada, dejando nuestros archivos en gran peligro. Por lo tanto, para reducir la posibilidad de que se dañen los archivos, le sugerimos que realice copias de seguridad periódicas. Además, obtén un Producto de recuperación de archivos de Word es necesario cuando se encuentra en la necesidad de reparar archivos rotos.
Introducción del autor:
Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo Herramienta de reparación de datos de Excel xls y pdf reparar productos de software. Para más información visite www.datanumen.com