حساب الفرق بين تاريخين

[ِAbo_El_Ela]

بحثت عن وحدة نمطية لحساب الفرق بين تاريخين 

ووجدت لكني لم اعرف ان اطوعها كما اريد 

فحاولت ان انشئ وحدة من تصميمي لتنفيذ ما اريد و لكني مازلت مبتدئ و الفشل يلاحقني في كل مكان 😂😂

و بإختصار 

فكرتي كلآتي 

طرح تاريخين من بعض 

و بدأت بطرح السنين 

فما الخطأ في الصورة

 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

و شكرا لاساتذتي الكرام

 

 

اول خطأ في كلمة انتجر

[ِAbo_El_Ela]

بعد تعديل المتغير انتجر 

ظهرت هذه الرسالة 

 

[أبو عبدالله الحلوانى]

الأمر اهون من هذا ان شاء الله 

استخدم دالة الأكسس المخصصة لذلك لتحصل علي النتيجة التي تريد

DateDiff "ww", d1, d2
'"dd" الفرق بين التاريخين بالأيام 
'"ww"  الفرق بين التاريخين بالاسابيع
'"m"  الفرق بين التاريخين بالشهور 
'"yy" الفرق بين التاريخينن بالسنوات

 

[ِAbo_El_Ela]

استاذي الغالي 

سلمت يداك 

بس فية مشكلة ان كسر السنة يحسب سنة  

[Eng.Qassim]

اضافة لما تفضل به استاذي @أبو عبدالله الحلوانى

انتبه دائما الى نوع البيانات

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

 

[ِAbo_El_Ela]

شكرا استاذي الفاضل 

هو المطلوب بالضبط 

شاكرا جدا

 

[ابوبسمله]

50 دقائق مضت, ABOLO2 said:

فحاولت ان انشئ وحدة من تصميمي لتنفيذ ما اريد و لكني مازلت مبتدئ و الفشل يلاحقني في كل مكان 😂😂

الم تعلم بان الفشل اول طريق النجاح كويس انك بتحاول وتعافر

تعرف انى بدات متاخر ده غير انى توقفت مرات كثيره عن التعلم للانشغال بامور الحياه شويه وعدت مره اخرى للتعلم

حاول ومتياسش واللى تقف فيه اسال واخوانك واساتذتنا مش بيقصروا ان شاء الله

واقراء هذا الاقتباس جيدا 👇

اقتباس

وكأن بيبان ينتصر هنا لموقف الكيميائي الإنجليزي همفري ديفي؛ مخترع الصوديوم والبوتاسيوم، الذي أعلن ذات يوم بأن "أهم اكتشافاتي كانت من وحي فشلي". وإلى توماس أديسون الذي أنار باختراعه الكوكب، حين سئل عن شعوره حيال فشله المتكرر قبل اختراع المصباح، فأجاب "أنا لم أفشل، بل اكتشفت ألف طريقة لا تؤذي إلى اختراع المصباح".

جزاكم الله خيرا اخوانى واساتذتى ابوعبدالله ومهندس قاسم 💐

بالتوفيق

[ِAbo_El_Ela]

تسلم استاذي العزير علي النصيحة 

فهي نصيحة غالية 

و شكرا علي تشجيعك 

دمت عونا لنا ان شاء الله

احمد الفلاحجي

[ابوبسمله]

23 ساعات مضت, ABOLO2 said:

تسلم استاذي العزير علي النصيحة 

فهي نصيحة غالية 

و شكرا علي تشجيعك 

دمت عونا لنا ان شاء الله

احمد الفلاحجي

العفو اخى

واتجدعن وربنا يوفقك