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

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





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


شاطر
 

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

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

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

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

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

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

كتابة التاريخ بشكل إحترافي MjMzNzA0MQ1001002017-09-18_172119

ثم نقوم بإدراج الكود التالي
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

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

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



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

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

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



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

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

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

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

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

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

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



عدد المساهمات : 40
تاريخ التسجيل : 27/12/2018

كتابة التاريخ بشكل إحترافي Empty
مُساهمةموضوع: رد: كتابة التاريخ بشكل إحترافي   كتابة التاريخ بشكل إحترافي Avatarالخميس ديسمبر 27, 2018 8:05 am

الف الف شكر استاذ الله يحفظكم ان شاء الله تعالى
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كتابة التاريخ بشكل إحترافي
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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