ِAbo_El_Ela قام بنشر مايو 7, 2022 مشاركة قام بنشر مايو 7, 2022 بحثت عن وحدة نمطية لحساب الفرق بين تاريخين ووجدت لكني لم اعرف ان اطوعها كما اريد فحاولت ان انشئ وحدة من تصميمي لتنفيذ ما اريد و لكني مازلت مبتدئ و الفشل يلاحقني في كل مكان 😂😂 و بإختصار فكرتي كلآتي طرح تاريخين من بعض و بدأت بطرح السنين فما الخطأ في الصورة Function DatDiffY(Vdate1 As Date, Vdate2 As Date) As Integer If Not (IsDate(Vdate1)) Then Exit Function If Not (IsDate(Vdate2)) Then Exit Function Dim year1 As intger Dim year2 As intger Dim month1 As intger Dim month2 As intger year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("mm", Vdate1)) month2 = Int(DatePart("mm", Vdate2)) If month2 < month1 Then DatDiffY = (year2 - year1) - 1 Else DatDiffY = year2 - year1 End If End Function و شكرا لاساتذتي الكرام اول خطأ في كلمة انتجر رابط هذا التعليق شارك More sharing options...
ِAbo_El_Ela قام بنشر مايو 7, 2022 الكاتب مشاركة قام بنشر مايو 7, 2022 بعد تعديل المتغير انتجر ظهرت هذه الرسالة رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر مايو 7, 2022 مشاركة قام بنشر مايو 7, 2022 الأمر اهون من هذا ان شاء الله استخدم دالة الأكسس المخصصة لذلك لتحصل علي النتيجة التي تريد DateDiff "ww", d1, d2 '"dd" الفرق بين التاريخين بالأيام '"ww" الفرق بين التاريخين بالاسابيع '"m" الفرق بين التاريخين بالشهور '"yy" الفرق بين التاريخينن بالسنوات 1 رابط هذا التعليق شارك More sharing options...
ِAbo_El_Ela قام بنشر مايو 7, 2022 الكاتب مشاركة قام بنشر مايو 7, 2022 استاذي الغالي سلمت يداك بس فية مشكلة ان كسر السنة يحسب سنة رابط هذا التعليق شارك More sharing options...
أفضل إجابة Eng.Qassim قام بنشر مايو 7, 2022 أفضل إجابة مشاركة قام بنشر مايو 7, 2022 اضافة لما تفضل به استاذي @أبو عبدالله الحلوانى انتبه دائما الى نوع البيانات Dim year1 As Date Dim year2 As Date Dim month1 As Date Dim month2 As Date year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) If month2 < month1 Then DatDiffY = (year2 - year1) - 1 Else DatDiffY = year2 - year1 End If 1 1 رابط هذا التعليق شارك More sharing options...
ِAbo_El_Ela قام بنشر مايو 7, 2022 الكاتب مشاركة قام بنشر مايو 7, 2022 شكرا استاذي الفاضل هو المطلوب بالضبط شاكرا جدا رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر مايو 7, 2022 مشاركة قام بنشر مايو 7, 2022 50 دقائق مضت, ABOLO2 said: فحاولت ان انشئ وحدة من تصميمي لتنفيذ ما اريد و لكني مازلت مبتدئ و الفشل يلاحقني في كل مكان 😂😂 الم تعلم بان الفشل اول طريق النجاح كويس انك بتحاول وتعافر تعرف انى بدات متاخر ده غير انى توقفت مرات كثيره عن التعلم للانشغال بامور الحياه شويه وعدت مره اخرى للتعلم حاول ومتياسش واللى تقف فيه اسال واخوانك واساتذتنا مش بيقصروا ان شاء الله واقراء هذا الاقتباس جيدا 👇 اقتباس وكأن بيبان ينتصر هنا لموقف الكيميائي الإنجليزي همفري ديفي؛ مخترع الصوديوم والبوتاسيوم، الذي أعلن ذات يوم بأن "أهم اكتشافاتي كانت من وحي فشلي". وإلى توماس أديسون الذي أنار باختراعه الكوكب، حين سئل عن شعوره حيال فشله المتكرر قبل اختراع المصباح، فأجاب "أنا لم أفشل، بل اكتشفت ألف طريقة لا تؤذي إلى اختراع المصباح". جزاكم الله خيرا اخوانى واساتذتى ابوعبدالله ومهندس قاسم 💐 بالتوفيق 2 1 رابط هذا التعليق شارك More sharing options...
ِAbo_El_Ela قام بنشر مايو 7, 2022 الكاتب مشاركة قام بنشر مايو 7, 2022 تسلم استاذي العزير علي النصيحة فهي نصيحة غالية و شكرا علي تشجيعك دمت عونا لنا ان شاء الله احمد الفلاحجي 1 رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر مايو 8, 2022 مشاركة قام بنشر مايو 8, 2022 23 ساعات مضت, ABOLO2 said: تسلم استاذي العزير علي النصيحة فهي نصيحة غالية و شكرا علي تشجيعك دمت عونا لنا ان شاء الله احمد الفلاحجي العفو اخى واتجدعن وربنا يوفقك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان