跳到主要内容
 

如何计算 Word 文档中两个日期或时间之间的天数或小时数?

作者:晓阳 最后修改时间:2024-08-26

通常,我们可以快速轻松地计算Excel工作表中两个日期之间的天数,但是,您是否曾经尝试过获取Word文档中两个给定日期之间的天数?

使用VBA代码计算Word文档中两个日期之间的差异

使用VBA代码在Word文档中计算两次之间的差异


使用VBA代码计算Word文档中两个日期之间的差异

要计算两个给定日期之间的天数,请按照以下VBA代码进行操作,具体操作如下:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 然后,单击 插页 > 模块,将以下代码复制并粘贴到打开的空白模块中:

VBA代码:计算两个日期之间的差异

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。 然后,按 F5 键以运行此代码,在连续的对话框中,输入要使用的开始日期和结束日期,请参见屏幕截图:

输入开始和结束日期

4。 然后,点击 OK 按钮,您将获得所需的结果,请参见屏幕截图:

弹出窗口显示两个日期之间的天数


使用VBA代码在Word文档中计算两次之间的差异

这是另一个VBA代码,可以帮助您计算两次给定时间之间的时差,请按照以下步骤操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 然后,单击 插页 > 模块,将以下代码复制并粘贴到打开的空白模块中:

VBA代码:计算两次之间的差

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。 然后,按 F5 键以运行此代码,在连续的对话框中,输入要用于计算差异的开始时间和结束时间,请参见屏幕截图:

输入开始和结束时间

4。 然后,点击 OK 按钮,并且已计算出两个给定时间之间的时差,并显示如下屏幕截图所示:

弹出窗口显示两次时间之间的时差

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

🤖 Kutools AI功能: 生成内容 / 重写文本 / 文档问答 / 快速获得答案 / 翻译文件 / 波兰文档(保留格式)...

📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择(PDF/TXT/DOC/HTML...) / 批量转换为PDF...

内容编辑: 跨多个文件批量查找和替换 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...

🧹 轻松清洁:扫除 多余的空间 / 分节符 / 文本框 / 超链接 / 如需更多移除工具,请访问 删除 团体...

创意插入: 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 多张图片 / 了解更多 插页 团体...

🔍 精准选择:精确定位 特定页面 / / 形状 / 标题段落 / 增强导航功能 更多 选择 功能...

星级增强: 导航到任何位置 / 自动插入重复文本 / 在文档窗口之间切换 / 11 转化 工具...

Word 功能区上的 Kutools 和 Kutools Plus 选项卡
👉 想要尝试这些功能吗?立即下载 Kutools for Word! 🚀
 

最佳办公生产力工具

Kutools for Word - 100 多种 Word 工具