ارجوا المساعدة الاختبار غداً ( خدمة بسيطة) بليز !

السلام عليكم و رحمة الله و بركاته

لكي يمكن إجراء عمليات حسابية علي تاريخيين يجب تحويل التاريخيين الي ارقام

لابد ان تحول التاريخ الي ايام

و هذه الفنشكشن التي تحول التاريخ الي رقم

اقتباس

Private Function fromDateToLong(Date1 As String) As Long

Dim Arr

Arr = Split(Date1 , "/")

fromDateToLong = Arr(0) * 365 + Arr(1) * 30 + Arr(2)

End Function

و طبعا العملية دي تقريبية علشان السنة البسيطة و السنة الكبيسة و ايضا شهور 30 يوم و اخري 31 يوم

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

و هذه الفنشكشن التي تحول رقم الي التاريخ

اقتباس

Private Function fromLongToDate(Num As Long) As String

Dim Years As Integer

Dim Monthes As Integer

Dim Days As Integer

Years = Floor(Num / 365)

Monthes = Floor((Num - (Years * 365)) / 30)

Days = Num - (Years * 365) - (Monthes * 30)

fromLongToTime = Years & ":" & Monthes & ":" & Days

End Function

اقتباس

Function Floor(iReal As Single) As Integer

Floor = Round(iReal - 0.5)

End Function

انا لم اجربها

جرب و قولي

اخوي ابو المنذر شكراً جزيلاً على الاهتمام .

بس لازالت المشكلة معلقة

لم تنحل

اخوي اين اضيف الكود

واتمنى انك فهمت معنى السؤال جيداً

تحت الزر الخاص بالنتيجة

أضف هذا الكود

اقتباس

dim diff as long

diff=fromDateToLong(txtDate1.text)-fromDateToLong(txtDate2.text)

fromLongToDate diff

سمي التاريخ الاول txtDate1 و التاريخ الثاني txtDate2

السنين Years

الشهورMonthes

الايامDays

لكني لا أراك تهتم بأن تفهم المشكلة ، نصحيتي لك بأن تحاول أن تحل المشكلة بنفسك مرة و أثنان و كل ماتحاول كل ما تستفيد

ارجوا ان تستفيد من هذا المثال المرفق

datediff.zip

ابو المنذر

ألف شكر على التعاون

لكني لم افهم

اخوي والله اني مبتدأ في العلم هذا بس سامحني

والاختبار بقي لة اقل من 4 ساعات.

***************************************

احمد2004 مشكوووووووووووووووووووووووووووور

وماقصرت صراحة المثال رائع واستفدت الكثير من ولك كل الشكر والعرفان

هو حل بسيط و يفترض ان التاريخ الاكبر هو التاريخ الذي به عدد السنين و الشهور و الايام اكبر

و لكن علي سبيل المثال

1/5/2004

1/9/2003

الناتج ان فرق السنين = 1

و فرق الشهور = 4

و فرق الايام =0

في خطأ في طريقة الحساب

اردت روبينهو الاستفاده من هذا المثال ويمكن ان يعدل البرنامج باضافه if Conditions

هذا كل مافي الامر.

---------------------------------------------------------------------------------

ولدي العلم من ان البرنامج لايعمل بالشكل الصحيح لكن اعطي تلميحا لـروبينهو وهذا الهدف من المنتدى والتعلم و اعطاء الافكار والتلميحات

وشكرا لـmdyehia لذكر الخطأ بالحساب.............

ولتصحيح كود عدد الشهور

احذف هذا الكود الموجود في

Private Sub Command1_Click()

If m1 > m2 Then
        mm = m1 - m2
        monthdiff.Text = (m1 - m2) + addition
    Else
        mm = m2 - m1
        monthdiff.Text = addition - (m2 - m1)
    End If

وضع هذا لتصحيح كود عدد الشهور

If y1 > y2 Then
    If m1 > m2 Then
        mm = m1 - m2
        monthdiff.Text = (m1 - m2) + addition
    Else
        mm = m2 - m1
        monthdiff.Text = addition - (m2 - m1)
    End If
Else
    If m1 < m2 Then
        mm = m2 - m1
        monthdiff.Text = (m2 - m1) + addition
    Else
        mm = m1 - m2
        monthdiff.Text = addition - (m1 - m2)
    End If

    
End If

والباقي عليكم......

ودمتم سالمين......

_______________________________________________________