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

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

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

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

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

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

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

2. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:

كود فبا: احسب الفرق بين تاريخين

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

doc حساب الأيام 1

4. ثم اضغط OK زر ، وستحصل على النتيجة التي تريدها ، انظر لقطة الشاشة:

doc حساب الأيام 2

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

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

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

2. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:

كود فبا: احسب الفرق بين مرتين

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

doc حساب الأيام 3