logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





03-09-2017 01:25 مساءً
السلام عليكم ورحمة الله
اساتذة وخبراء الاكسيل في هذا المنتذى الرائع
فضلا لدي فورم في المرفق لاستخراج فرق بين تاريخين وان كان ممكنا وضع الاكواد المطلوبة جزاكم الله خيرا
تحياتي

attachحساب السن.rar
 
 
  حساب السن.rar   تحميل rar مرات التحميل :(44)
الحجم :(18.197) KB





look/images/icons/i1.gif يوزرفورم حساب السن
  03-09-2017 03:04 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
وعليكم السلام أخي الكريم حسين
ضع الدالة المعرفة التالية في موديول عادي
CODE
Function CalculateAge(birth As Variant, start As Variant, str As String)
    Dim y           As Long
    Dim m           As Long
    Dim d           As Long

    If Not IsDate(birth) Or Not IsDate(start) Then GoTo Skipper

    m = DateDiff("m", birth, start)
    d = DateDiff("d", DateAdd("m", m, birth), start)
    If d < 0 Then
        m = m - 1
        d = DateDiff("d", DateAdd("m", m, birth), start)
    End If
    y = m \ 12
    m = m Mod 12

    Select Case str
        Case "d"
            CalculateAge = d
        Case "m"
            CalculateAge = m
        Case "y"
            CalculateAge = y
    End Select

    Exit Function

Skipper:
    CalculateAge = ""
End Function



ثم في حدث الفورم ضع الكود التالي
CODE
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsDate(TextBox1) Then
        TextBox3 = CalculateAge(TextBox2, TextBox1, "y")
        TextBox4 = CalculateAge(TextBox2, TextBox1, "m")
        TextBox5 = CalculateAge(TextBox2, TextBox1, "d")
    End If
End Sub

Private Sub UserForm_Activate()
    Me.TextBox1.Value = Format("1/10/2017", "dd/mm/yyyy")
    Me.TextBox2.Value = Format(Date, "dd/mm/yyyy")
End Sub





look/images/icons/i1.gif يوزرفورم حساب السن
  03-09-2017 04:59 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 164
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 867
الاعجاب : 0
السلام عليكم ورحمة الله
استاذي خليل ابو البراء امثالكم في عالمنا هذا رحمة للعباد اسأل الله ان يجازيك بما لك فيه خير
عمل رائع وممتاز سأضيف هذا الفورم الى برنامج روضة اطفال للجمعية التي اعمل لديها الف الف شكر
تحياتي




look/images/icons/i1.gif يوزرفورم حساب السن
  03-09-2017 07:22 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
وعليكم السلام أخي العزيز حسين
مشكور على كلماتك الطيبة ودعائك الطيب .. وأسأل الله أن يجمعنا في مستقر رحمته يوم القيامة

والحمد لله الذي بنعمته تتم الصالحات




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية اظهار يوزرفورم فى اكسيل اوتوماتيكياً عند انقطاع الانترنت gemy2010
4 227 gemy2010
مشكلة كود حفظ تعديل البيانات في اليوزرفورم شبل
1 434 شبل
كيفية عمل نموذج ادخال بيانات على الاكسيل به جمل استرشادية للمستخدم -- يوزرفورم mmagedmemo
2 638 mmagedmemo
طباعة الصورة من على اليوزرفورم ashraf_hertlion
1 790 ashraf_hertlion
مشكلة تعديل البيانات في اليوزرفورم شبل
3 923 YasserKhalil

الكلمات الدلالية
يوزرفورم ، حساب ، السن ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:45 PM