الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







 
الرئيسيةالأستاذ التعليماليوميةس .و .جبحـثالأعضاءضع التسجيلالمجموعاتدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل smartdaoud فمرحبا به


شاطر | 
 

 كتابة التاريخ بشكل إحترافي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
avatar

عدد المساهمات : 789
تاريخ التسجيل : 22/02/2013
العمر : 63

مُساهمةموضوع: كتابة التاريخ بشكل إحترافي   الجمعة أكتوبر 06, 2017 6:52 am

أقدم لكم اليوم طريقة لكتابة التاريخ على TextBox بطريقة إحترافية وذلك بإستعمال الدالة (Len):
من المعروف أن كتابة التاريخ يكتب عادة في TextBox بهذه الطريقة : اليوم ثم نكتب/ ثم الشهر ثم / ثم السنة
لكن أنا أريد كود بمجرد الإنتهاء من كتابة اليوم يضع لـ :"   /  "(سلاش) و كذلك عند الإنتهاء من كتابة الشهر . وهذا كله لإختصار الوقت و التقليل من الأخطاء عند إدخال التواريخ
كيف يتم ذلك  ؟.
بعد إدراج يوزر فورم و TextBox  كما ههو موضح في الصورة


ثم نذهب للخصائص ومن خلال الخاصية MAXLength نضع الرقم 10 يعني طول النص هو 10 حروف



ثم نقوم بإدراج الكود التالي
Private Sub TextBox1_Change()
Dim x As Integer
x = Str(Len(TextBox1.Text))
If x = 2 Then
TextBox1.Text = TextBox1.Text & "/"
End If
If x = 5 Then
TextBox1.Text = TextBox1.Text & "/"
End If
End Sub

وشكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
waheed



عدد المساهمات : 13
تاريخ التسجيل : 04/10/2017

مُساهمةموضوع: رد: كتابة التاريخ بشكل إحترافي   السبت أكتوبر 07, 2017 3:30 pm

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



عدد المساهمات : 13
تاريخ التسجيل : 04/10/2017

مُساهمةموضوع: رد: كتابة التاريخ بشكل إحترافي   السبت أكتوبر 07, 2017 3:32 pm

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

عدد المساهمات : 789
تاريخ التسجيل : 22/02/2013
العمر : 63

مُساهمةموضوع: رد: كتابة التاريخ بشكل إحترافي   السبت أكتوبر 07, 2017 3:58 pm

جميلك يالدعاء لنا يظهر الغيب

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
كتابة التاريخ بشكل إحترافي
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: