¿Cómo calcular días u horas entre dos fechas u horas en un documento de Word?
Normalmente, podemos calcular rápidamente y con facilidad el número de días entre dos fechas en una hoja de trabajo de Excel, pero, ¿alguna vez ha intentado 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 puede ayudarte, por favor haz lo siguiente:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Luego, haz clic en Insertar > Módulo, copia y pega el siguiente código en el módulo en blanco abierto:
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. Luego, presiona la tecla F5 para ejecutar este código; en los cuadros de diálogo consecutivos, introduce la fecha de inicio y la fecha de finalización que deseas usar, ver captura de pantalla:
4. Luego, haz clic en el botón Aceptar, y obtendrás el resultado que deseas, ver captura de pantalla:
Calcular la diferencia entre dos horas en un documento de Word con código VBA
Aquí hay otro código VBA que puede ayudarte a calcular la diferencia entre dos horas dadas, por favor haz lo siguiente:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Luego, haz clic en Insertar > Módulo, copia y pega el siguiente código en el módulo en blanco abierto:
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. Luego, presiona la tecla F5 para ejecutar este código; en los cuadros de diálogo consecutivos, introduce la hora de inicio y la hora de finalización que deseas usar para calcular la diferencia, ver captura de pantalla:
4. Luego, haz clic en el botón Aceptar, y se habrá calculado y mostrado la diferencia de tiempo entre dos horas dadas como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad para Office
Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones extraordinarias!
🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener Formato) / Super Traducir (Mantener Formato) / Redacción AI / Revisión con IA...
📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...
✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...
🧹 Limpieza sin esfuerzo: Elimina espacios extras / Saltos de sección / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...
➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón de Opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...
🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...
⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...
🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!
Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint
📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante
Las mejores herramientas de productividad para Office
Kutools para Word - ¡Más de 100 herramientas para Word!
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Conversión por lote a PDF
- ✏ Edición de cuerpo: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar delimitador de miles / Insertar Casilla de Verificación / Crear Códigos QR
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma – compatible con más de40 idiomas!