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

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


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





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

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



03-09-2017 01:25 مساء
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 

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

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


03-09-2017 03:04 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 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]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif يوزرفورم حساب السن
السلام عليكم ورحمة الله
استاذي  خليل ابو البراء   امثالكم في عالمنا  هذا رحمة  للعباد اسأل الله ان يجازيك بما لك فيه خير 
عمل رائع وممتاز سأضيف هذا الفورم الى برنامج روضة اطفال للجمعية التي اعمل لديها الف الف شكر
تحياتي

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

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




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


 










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

الساعة الآن 10:50 صباحا