التحكم في ادخال التاريخ من اليمين الى اليسار

السلام عليكم و رحمة الله و بركاته

أختي صاحبة السمو بالنسبة لمشكلة التاريخ جربي الكود التالي :

Imports Microsoft.VisualBasic.DateAndTime
Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim S As String
		S = Now.Date
		MaskedTextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
		MaskedTextBox1.TextAlign = HorizontalAlignment.Left
		MaskedTextBox1.Text = Day(S) & "\" & Month(S) & "\" & Year(S)
		TextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
		TextBox1.TextAlign = HorizontalAlignment.Left
		TextBox1.Text = Day(S) & "\" & Month(S) & "\" & Year(S)
	End Sub

End Class

الكود السابق تم تجربته على textbox و maskedtextbox و أظهر نتائج ممتازة

(h) مع خالص تحياتي ،،،

date_test.rar

الطريقة التي أدرجها أبو السيد العنان جيدة .. ولكن لا تصلح اذا ادخلنا التاريخ يدويا ..

لماذا لا تستخدمين اليوم والشهر اختيار من القائمة والسنة بمربع نص .. فهذه الطريقة تمنع الاخطاء كثيرا ..

مشكور أخ Scoool على رد و نصيحتك .

إن ما ذكرته صحيح و ممتاز و خصوصا لتلافي الأخطاء

مع خالص تحياتي ،،،

الاخ الكريم

شكر لك لتفاعلك معي

ولكن اعتقد انك لم تفهم قصدي من السوال

انا طرحت السوال على الشكل السابق

لانواريد اداة تجعلني اكتب التاريخ ابتداءا من اليوم وعندما انتهي من كتابه رقمين ينتقل الى الشهر وعندما اكتب رقمان ايضا ينتقل الى السنه مع مراعا قيم الشهور انها لا تتعدي 12 والايام لا تتعدي 31 في بعض الاشهر و 28 في البعض الاخر

بمعني اننى اريد بمجرد الانتهاء من كتابه قيمه اليوم ينتقل علطول الى الشهر دون ان ينتظر من المستخدم ان يكبس على السهم

هذه الاكشن موجود بالفعل ولكن فقط في اداءه maskedtextbox

وهو غير موجود للاسف في اداه DateTimePicker

والعيب في اداة maskedatabox انني لا استطيع جعلها ان تكتب من اليمين الى اليسار ابتداءا باليوم ثم الشهر فالسنه

فقط تاتي بالاتجاه اللعكس وهذا لا يتناسب مع البرامج العربيه

للعلم هذا الاكشن ( اقصد ادخال التاريخ خانه خانه وبمجر الانخاه من كتابه خانه معينه ينتقل الي الاخرى دون ان يكبس المستخدم اي سهم )

يكان يستخدم على لغات البرمجه القديمه ولكن للاسف لم اجد له حل في بيئه الدوت نت

ارجو المساعده لمن يعرف الحل

وشكر لك اخر الكريم مره اخري

أعلم بوجود هذه الخاصية في MaskedTextBox فهو شبيه الى حد كبير بحقل من نوع Datetime في Access

ولكن أردت أن أقدم فكرة يمكن استخدامها كبديل في حالة عدم وجود الحل ..

وبالتوفيق ان شاء الله ..

شكرا اخي scoool

ولكن للاسف الهدف الاساسي من هذا السوال هو ادخال التاريخ تباعد بعد النتهاء من كل خانه دون ان يستخدم المستخدم الاسهم

بحيث يكون الادخال من اليمين الى اليسار

اما بالنسبه للحال الذي حكيت عنه انت فهو مثل استخدام اداه datetime picker

للعلم انا فكرت استخدم ثلاث تست بوكس لعمل المطلوب ولكن للاسف لم استطيع تحديد حدث الانتقل عندما يكبس على رقمين بمعني كيف ساجع البرنامج يراقب المستخدم لو ادخل رقمين او لا لينتقل الى الخانه الاخرى

السلام عليكم و رحمة الله و بركاته

يمكن عمل ذلك بالطبع و ذلك كما يلي :

Public Class Form1

	Private Sub TDay_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TDay.LostFocus
		TDay.SelectionStart = 0
		TDay.SelectionLength = TDay.Text.Length

	End Sub

	Private Sub TDay_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TDay.TextChanged
		If TDay.Text.Length = 2 Then TMonth.Select()
	End Sub

	Private Sub TMonth_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TMonth.LostFocus
		TMonth.SelectionStart = 0
		TMonth.SelectionLength = TMonth.Text.Length
	End Sub

	Private Sub TMonth_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMonth.TextChanged
		If TMonth.Text.Length = 2 Then
			If Val(TMonth.Text) > 12 Then
				Exit Sub
			Else
				TYear.Select()
			End If
		End If

	End Sub

	Private Sub TYear_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TYear.LostFocus
		TYear.SelectionStart = 0
		TYear.SelectionLength = TYear.Text.Length
	End Sub
End Class

:D مع خاص تحياتي ،،،

date_test_2.rar

ربما يكون الامر أكثر سهولة مع Regex على هذا النحو.

وربما يكون فيه اخطاء, لكن ما الحكمة من وضع التاريخ سواءً جهة اليمين أو الشمال , في الاخير هو تاريخ, ليس إلا.

Imports System.Text.RegularExpressions


Public Class Form1

	Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
		Me.Label1.Text = MDYToDMY(Me.DateTimePicker1.Text)
	End Sub

	Function MDYToDMY(ByVal input As String) As String
		Return Regex.Replace(input, _
			"\b(?<month>\d{1,2})/(?<day>\d{1,2})/(?<year>\d{2,4})\b", _
			"${month}\${day}\${year}")
	End Function



	Private Sub txtDate_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtDate.Validating
		If IsDate(Me.txtDate.Text) Then
			Me.txtDate.Text = MDYToDMY(Me.txtDate.Text)
		Else
			MsgBox("Please enter the correct date format as Day, Month, Year..")
		End If
	End Sub
End Class

RegexChangeDate.rar

اقتباس

ووضعت بدلا من 4 اعمده في قاعدة البيانات ===اليوم-الشهر-السنه-اجمالي

يضعه على كاهل قاعدة البيانات, لماذا يصر البعض على التاريخ الهجري كإدخال, ادخل التاريخ بالميلادي و اعرضه في التقارير بالهجري

عبر وسائل كثيرة في عملية التحويل, فلا أظن انه من المنطق ان يكون هذا الحل حلٌ منطقي.

الله الموفق.

الاخ العزيز ابو السيد عدنان

يعطيك العافيه الكود الذي كتبته اكتر من رائع ولكن للاسف لا يتوافق مع متطلبات التاريخ بمعني انني لو ادخلت اي قيمه خطاء فانه سوف يقبلها للاسف وايضا في خانه السنوات لا يقوم باحتساب القيم الصحيحه ايضا لا تنسى ان هناك اشهر تكون 31 واخرى 28

لذلك فان استخدام تلك الطريقه قد يكون فيها شي من الصعوبه والاطاله مع احتمال ان تلك الطريقه قد لا توذي المطلوب في النهايه

للامانه انا فكرت فيها في البدايه ولكن قد واجهتني مشكله انني سوف استدعي احداث داخل احداث اخرى (حاولت ان اجربها ولكن للاسف لم ينجح معي )

الاخ الاستاذ الشهاب الخارق

اقتباس

لكن ما الحكمة من وضع التاريخ سواءً جهة اليمين أو الشمال , في الاخير هو تاريخ, ليس إلا.

بصراحه لم اتوقع ان تكتب انتا تلك الجمله بالذات لسبب بسيط جدا

لو كان الامر بيد المبرمج (بمعني ان يعمل ما يشاء ) لوضعت تكست بوكس عادي واجبرت جميع المستخدمين ان يكتبو التاريخ في تلك الاداء مع ادخال الرمز / بين كل الخانات وايضا لاجبرت المستخدم على التاكد من ان سيقه التاريخ صحيحه فلا يكتب قيمه اعلى من 28 عندما يكون الشهر هو 2 وغير ذلك وادا ادخل غير ذلك فيتحمل هو مسووليه انهيار النظام

بمعنى اننا عندما نقوم لنبرمج اي برنامج معين يجب ان يكون هذا البرنامج قد حل جميع متطلبات المستخدم لا المبرمج

وطريقه ادخال التاريخ هي احدى تلك المتطلبات لانه ببساطه برنامج يدعم اللغه العربيه علما انني قد قدمت التاريخ بطريقه مغايره للمطلوب وقد قوبل برنامجي بالرفض بحجه ان ( راحه المستخدم هي اهم شي كما ان طريقه ادخال البيانات مهمه على حسب قولهم )

اما بالنسبه للمرفق الدي ارسلته في المشاركه السابقه فهو بعيد كل البعد عن المطلوب

لو اطلعت على اي برامج عربيه سوا كانت ضخمه او صغيره ولكن معموله بلغات برمجيه قديمه لوجدت ان طريقه ادخال التاريخ هي كالتالي

رقم الطلب : _______________________________ التاريخ : ___ /___/ ______

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

انا استخدمت اداه datetimepicker وكانت ممتازه جدا في موضوع الييمن الى اليسار ولكن عيبها الوحيد كان انه يجب على المستخدم ان يكبس على الاسهم للانتقال من خانه الى اخرى

وايضا استخدمت اداءه maskedtextbox وكانت ممتازه جدا في موضوع ادخال الارقام بسلسه وسهوله دون ان ينتظر من المستخدم الكبس على اي سهم ولكن عيبها كان انها لا تقوم بعمل المطلوب ادا كان من اليمين الي اليسار ابتداءا باليوم ثم الشهر فالسنه

اسفه على الاطاله ولكن لكي تفهم ماهي الحكمه من المطلوب

الاخ ابوعبدالملك

شكر لك لمشاركتك في هذا الموضوع

ولكن لا اعتقد ان فكره اضافه اربع اعمده في الداتا بيس فكره صائبه

لسببين

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

ثاني الاساب ان هذه المشكله ليست في الداتا بيس بل هي في البرنامج نفسه

لذلك اعتقدم انه يوجد حل لتلك المشاكل عن طريق البرنامج نفسه على اساس انه(في البرمجه لا يوجد شي مستحيل فكل شي يمكن عمله وبرمجته)

السلام عليكم و رحمة الله و بركاته

مشكورة يا صاحبة السمو على إطراءك و نشكر كافة المشاركين في هذا الموضوع ،،،

بالنسبة للتحقق من صحة التاريخ فقد قمت بتعديل على كود المثال الذي أرفقته قبل فترة و أضفت إليه التحقق من التاريخ المدخل .

و فكرة التحقق من التاريخ المدخل هي أن نقوم بادخال تاريخ افتراضي في البرنامج و من ثم يغير المستخدم في التاريخ و يقوم برنامج بالتحقق من التاريخ المدخل .

المثال موجود في المرفقات أرجو أن يحوز على إعجابكم .

ملاحظة : التحقق من التاريخ الموجود في المثال يقوم بالتحقق من التاريخ الهجري و يمكن تعديل ذلك بتغيير التقويم المستخدم .

;) مع خالص تحياتي ،،،

date_test_2.rar

الأخت الفاضلة صاحبة السمو أرجو أن يتسع صدرك لما يلي :

اقتباس

بمعنى اننا عندما نقوم لنبرمج اي برنامج معين يجب ان يكون هذا البرنامج قد حل جميع متطلبات المستخدم لا المبرمج

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

ما أريد قوله أن المبرمج الذكي هو من يقنع المستخدم بالفكرة لا من ينساق لما يريده المستخدم ..

والله أعلم ...

ربما و الله اعلم أن يكون القصور فينا وليس في الادوات فالادوات شيء و استخدامها الاستخدام الامثل شيئ أخر.

جربي هذا المرفق , فهو عبارة عن MaskedTextBox مع تعديل بعض خصائصه, أراهُ من وجهة نظري أنهُ يعمل كما هو مطلوب تماماً...

السلام عليكم.

MaskedTextBoxArabicDate.rar

الاخ ابو السيد عدنان

الف شكر لك اخي الكريم لمشاركتك لنا

المرفق الدي ارسلته جدا روعه وهو يتلائم مع المطلوب غير انه بالتقويم الهجري فقط

سوف اجعل حلك اخر الحلول في حاله انني لم اجد الحل

وذلك لانني بصراحه استخدم موضوع التاريخ بكثره في برنامجي ولا اريد الاكثر من عدد التكس بوكس فيه

الاخ سكوووووووووول

اشكرك لمشاركتك لنا في هذا الموضوع

لاتخاف في سبيل العلم صدري جدا واسع

وان كانت هذه هي المره الثانيه التى نتجادل فيها حول موضوع ( راحه المستخدم فوق كل شي) (من شروط البرنامج الجيد)

اما موضوع ان المبرمج الذكي هو من يقنع المستخدم فاتوقع ان تلك من خصائص المسوق وليس المبرمج (المبرمج يفعل ما يامر فيه ... لا تهم الادوات ولا الطريقه اهم شي ان تكون النتائج كما طلبها منه المستخدم)

الاخ الاستاذ الشهاب الخارق

الصراحه انتا شخص اكثر من رائع ولنا الفخر في هذا المنتدي بوجود امثالك

ولكن انتا حليت للاسف نصف المشكله لا كلها

سوالي كان كيف يمكن ان اكتب اليوم فالشهر فالسنه واجبتك كانت روعه ولكن ليست بالترتيب اللذي اريده

اقتباس

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

هو كذلك وليس ربما

القصور فينا بالطبع ولكن لا تنسى انني مبتدءه اطمح ان اكون كجبل في العلم مثلك

لي سوال اخير

هل يمكن ان ارتب كتابه هذا الماسك ليقبل اليوم ثم الشهر ثم السنه

لانو الاجابه الحاليه لك لا تقبل ذلك بل هي كالتالي الشهر ثم اليوم ثم السنه

جرب وادخل القيمه التاليه 2005/02/25

ثم حاول الانتقال من تلك الاداه

اعتذ لازعاجك المتكرر

سؤال بسيط جدا

الان صاحب المنشأه يريد ان يدخل البرنامج بالهجري هنا عادي .... (وارجوا أن تتفهمون الموضوع في السعوديه اغلب الجهات الحكوميه ان لم يكن جميعها وشريحه كبيره من المؤسسات الاهليه تتعامل بالهجري)

ثم خزنته في قاعدة البيانات على شكل تاريخ ميلادي .....عادي

التحويل من الميلادي الى الهجري ايضا عادي

طيب نبدا المشكله وياليت كل واحد يحاول يطبقها واذا لها حل يعطينا ايه حتى تنحل المشاكل

ادخل المستخدم 30/8/1428 وقبلها البرنامج عادي ..............طيب هذا التاريخ لا يوجد في النظام وسيحوله الى ما يقابل 1/9/1429 بالميلادي وعند التحويل من الميلادي الى الهجري سيكون الناتج 1/9/1428 هنا وقعنا في المشكله ومن يستطيع ان يحلها فأرجو الا يبخل بها علينا

طبعا لدي نظام يقول الموظف الذي تعين قبل 1/9/1428 أعطه راتب اضافي وأخينا في الله تعين في 30/8/1428هـ (لاحظ هجري وليس ميلادي) بمعنى ان الجهه تتعامل مع الهجري فقط ومع ام القرى فقط

والمؤؤسسه الحكوميه او الاهليه التي يعمل بها البرنامج تثق في ابوعبدالملك وأن برنامجه دقيق 100/100 فبضغطة زر سيحصل على جميع من تعين قبل 1/9/1428 هـ بدون ان تدقق البيانات وسيحرم اخينا في الله الذي تعين في 30/8/1428 من الراتب ليس لشئ الا لمشاكل التاريخ الهجري والميلادي

الان هذه المشكله تم تحليلها وتمحيصها هل اجد لديكم حل ؟؟

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

يا ليت اجد جواب شافي !!!!!!!

نسيت اضع لكم تجربه

وهي انني عمل ماسك يشبه ما عمله الاخ الشهاب الحارق ولكنني خزنته في قاعد البيانات على شكل نص تلافيا لمشاكل التحويل من الميلادي الى الهجري وفرق الايام

وبالتاكيد واجهتني مشاكل كثيره ولكن لمحدودية البرنامج استطعت التغلب عليها مع الاستغناء عن بعض مزايا الحقل من نوع تاريخ

هل اليوم ثم الشهر ثم السنة من اليمين الى الشمال .

استاذنا الشهاب الخارق

لقد قمت بتجربت برنامجك على اكثر من جهاز

وكانت النتيجه في جميعها انه يقبل فقط الشهر ثم اليوم ثم السنه

اليك المرفق موضح فيه مااقصده

اتوقع ان تكون المشكله من اعدادات الجهازين الذين قمت بالتجربه عليهما

لانو مثل ما في الصوره المرفقه في مشاركتك فان الارقام هناك هي الارقام الهنديه

بينما الارقام التى في المرفقه هي ارقام عربيه

فهل تكون المشكله في اعدادات الجهاز

ارجو الايضاح لمعرفه اين الخطاء

ارجو الاطلاع على المرفق

لا أظن ان لإعدادات الجهاز اي شأن, لانه في الحقيقة أن اعدادت العنصر هي المسؤولة عن ذلك, فكيف ذك ؟

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

السلام عليكم و رحمة الله و بركاته

بالنسبة لمثال الاستاذ العزيز الشهاب الحارق قد أعجبني كثيراً و جزاك الله ألف خير يا استاذنا العزيز الشهاب الحارق .

و فكرت في ابتكار كود لتكست بوكس ، صحيح أن به بعض العيوب و لذا نرجو التعاون من الجميع .

Imports System
Imports System.Globalization
Public Class Form1
	Dim B As Boolean
	Dim G As New GregorianCalendar
	'Dim G As New HijriCalendar إذا كان التاريخ المراد التحقق منه هجري
	ReadOnly Property GetDay() As Integer
		Get
			Dim S As String
			S = Replace(T.Text, "\", "-")
			S = Replace(S, Mid(T.Text, 1, 2), 1, 1, 1)
			Try
				Return G.GetDaysInMonth(Year(S), Month(S))
			Catch ex As Exception
				Return 30
			End Try
		End Get
	End Property

	Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
		End
	End Sub
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		T.SelectionStart = 0
		T.SelectionLength = 2
	End Sub

	Private Sub T_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles T.KeyDown
		If e.KeyCode = Keys.Back Then
			If T.SelectionStart = 6 Then
				T.Text = T.Text & "2007"
				T.SelectionStart = 5
			End If
			If T.SelectionStart = 3 Then
				T.Text = Mid(T.Text, 1, 3) & "05" & Mid(T.Text, Len(T.Text) - 4, 4)
			End If
			If T.SelectionStart = 0 Then

			End If
		End If
	End Sub

	Private Sub T_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T.TextChanged
		If T.SelectionStart = 2 Then
			T.SelectionStart = 3
			T.SelectionLength = 2
		End If
		If T.SelectionStart = 5 Then
			T.SelectionStart = 6
			T.SelectionLength = 4
		End If
		Dim S As String
		S = Replace(T.Text, "\", "-")
		If Mid(S, 1, 2) > GetDay Then
			T.Text = Replace(T.Text, Mid(S, 1, 2), GetDay)
			T.SelectionStart = 3
			T.SelectionLength = 2
		End If
		If T.Text.Length < 10 Then
			Exit Sub
		Else
			If Mid(T.Text, 4, 2) > 12 Then
				T.SelectionStart = 3
				T.SelectionLength = 2
				T.SelectedText = 12
			End If
		End If
	End Sub

End Class

و المثال موجود في المرفقات .

;) و لكم خالص تحياتي ،،،

Date_TAB.rar

الاخ العزيز الشهاب الخارق

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

هل يمكن ان تفيدني بنوع الفيجول الذي تعمل عليه (اي اصدار وهل له اي تجديدات)

لكي اقوم بتنزيل الفجول مره اخرى بنسخه غير الذي عندي واقوم بالتجربه

اسفة على الازعاج