كيفية حساب الأيام أو الساعات بين تاريخين أو وقتين في مستند Word؟

Author: Xiaoyang Last Modified: 2025-05-30

عادةً، يمكننا حساب عدد الأيام بين تاريخين في ورقة عمل Excel بسرعة وسهولة، ولكن هل سبق لك أن حاولت الحصول على عدد الأيام بين تاريخين معينين في مستند Word؟

حساب الفرق بين تاريخين في مستند Word باستخدام كود VBA

حساب الفرق بين وقتين في مستند Word باستخدام كود VBA

حساب الفرق بين تاريخين في مستند Word باستخدام كود VBA

لحساب عدد الأيام بين تاريخين معينين، يمكن أن يساعدك الكود التالي المكتوب بلغة VBA، يرجى القيام بما يلي:

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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 لتشغيل هذا الكود، وفي مربعات الحوار المتتالية، أدخل تاريخ البدء وتاريخ الانتهاء الذي تريد استخدامه، انظر إلى اللقطة:

Enter the start and end date

4. بعد ذلك، انقر فوق زر موافق، وستحصل على النتيجة التي تريدها، انظر إلى اللقطة:

Pop-up displaying days between the two dates

حساب الفرق بين وقتين في مستند Word باستخدام كود VBA

إليك كود VBA آخر يمكن أن يساعدك في حساب الفرق بين وقتين معينين، يرجى القيام بما يلي:

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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 لتشغيل هذا الكود، وفي مربعات الحوار المتتالية، أدخل وقت البدء ووقت الانتهاء الذي تريد استخدامه لحساب الفرق، انظر إلى اللقطة:

Enter the start and end time