Note: The other languages of the website are Google-translated. Back to English

كيف تحسب الأيام أو الساعات بين تاريخين أو وقتين في مستند 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

4. ثم اضغط OK زر ، وتم حساب فرق الوقت بين وقتين معينين وعرضه كما هو موضح في لقطة الشاشة التالية:

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


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL