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

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

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

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

---

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

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

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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. بعد ذلك، انقر فوق زرموافقوستحصل على النتيجة التي تريدها. انظر لقطة الشاشة:

---

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

هناك كود آخر مكتوب بلغة VBA يمكنه مساعدتك في حساب الفرق بين وقتيْن معيَّنين، يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحَيْALT + F11لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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. بعد ذلك، انقر على زرموافق، وسيتم حساب الفرق الزمني بين الوقتَين المُدخلَين وعرضه كما في لقطة الشاشة التالية: