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

[Alsalim1]

كيفية إيجاد الفرق بين تاريخين ميلادية بالسنوات والاشهر والايام

 

الفرق بين تاريخين.rar

[عبدالرازق زكى]

لعل هذا ما تتمناه اخى الكريم

الفرق بين تاريخين.rar

[Alsalim1]

شباب أريد أفصل السنوات والاشهر والايام كالمرفق

الفرق بين تاريخين.rar

[Elsayed Bn Gemy]

Me.Text4 = Day(Text2) - Day(Text0)
Me.Text6 = Month(Text2) - Month(Text0)
Me.Text8 = Year(Text2) - Year(Text0)

اخى الكريم اضف هذا الكود لزر احسب

 

 

[Alsalim1]

ظهر لي الاشهر بالماينس !!!!!

أريد البرنامج يأخذ في الاعتبار السنة البسيطة والكبيسة

[Alsalim1]

ما زلت أنتظر إجابتكم

[Alsalim1]

اساتذتي الكرام ما زلت أنتظر ردكم

[Alsalim1]

شباب ما زلت أنتظر ردكم

[عبدالرازق زكى]

جرب هذا المرفق ومنتظر الرد

الفرق بين تاريخين.rar

[Alsalim1]

من 3/5/1997 إلى 2/3/1998 من المفترض يطلع الناتج 0 سنة و11 شهر و28 يوم

البرنامج طلع 24 يوم بدل 28 يوم

[Alsalim1]

ما زلت أنتظر الاجابة

[عبدالرازق زكى]

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

الفرق بين تاريخين.rar

[رمهان]

ابحث عن حساب العمر

بالتوفيق

[Omar_Kreem]

ما تفضل به خبيرنا أستاذ/ رمهان

Function CalcAge(vDate1 As Date, vdate2 As Date)
    Dim vYears As Integer, vMonths As Integer, vDays As Integer
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalcAge = vDays & " يوم,  " & vMonths & " شهر,  " & vYears & " سنة"
End Function

 

[صالح حمادي]

السلام عليكم تقبل الله صيامكم أخوتي الأفاضل.

بعد إذنك أستاذ رمهان لك جزيل الشكر.

يمكن متابعة ما أشار إليه أخي رمهان للوصول الحل وهذا تعديل على ملفك الأول نرجوا من الله أن يوفقنا لما يحبه و يرضاه.

 

الفرق بين تاريخين.rar

[Alsalim1]

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