أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




يوزرفورم حساب السن

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



03-09-2017 01:25 مساء
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 122
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 9
قوة السمعة : 445
الاعجاب : 33
 offline 
السلام عليكم ورحمة الله
اساتذة  وخبراء الاكسيل في هذا المنتذى الرائع
فضلا  لدي فورم في المرفق لاستخراج  فرق بين تاريخين وان كان ممكنا وضع الاكواد المطلوبة جزاكم الله خيرا
تحياتي

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  حساب السن.rar   تحميل rar مرات التحميل :(36)
الحجم :(18.197) KB





03-09-2017 03:04 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif يوزرفورم حساب السن
وعليكم السلام أخي الكريم حسين
ضع الدالة المعرفة التالية في موديول عادي
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


ثم في حدث الفورم ضع الكود التالي 
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




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




03-09-2017 07:22 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif يوزرفورم حساب السن
وعليكم السلام أخي العزيز حسين
مشكور على كلماتك الطيبة ودعائك الطيب .. وأسأل الله أن يجمعنا في مستقر رحمته يوم القيامة

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مشكلة في دالة datediff في اليوزرفورم المبتدأ
2 105 المبتدأ
اسهل واسرع طريقة لتغيير خلفية اليوزرفورم بدون الدخول الى محرر الاكواد بطريقة ديناميكية emad ghazi
6 1704 ayman_2000
عمل وميض في التيكست بوكس داخل اليوزرفورم المبتدأ
9 265 YasserKhalil
تغيير لون و حجم عنوان اليوزرفورم ANASS1
5 344 YasserKhalil
مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت المبتدأ
7 562 YasserKhalil

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


 








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

الساعة الآن 07:46 مساء

أعلن هنا
أعلن هنا
أعلن هنا