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

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

ربما يسهل عليك الأمر استعمال الـ DTPicker (مجموعة Microsoft Windows Common Controls 6) و ضبط الخاصية Format على dtpTime، ثم استعمال الخاصية Value للحصول على الوقت دون الحاجة للتأكد من صحة الوقت. و يمكنك استعمال الخاصية CustomFormat لتحديد صيغة الوقت.

أما إذا كان لا بد من استعمال TextBox فإليك هذا الكود:

Private Function IsTime(ATime As Date) As Boolean
	If Abs(CDbl(ATime)) < 1 Then
		IsTime = True
	Else
		IsTime = False
	End If
End Function

Private Sub Command1_Click()
	If Not IsDate(Text1.Text) Then
		MsgBox "الرجاء كتابة الوقت بشكل صحيح"
	ElseIf IsTime(CDate(Text1.Text)) Then
		MsgBox "الوقت صحيح"
	Else
		MsgBox "الوقت غير صحيح"
	End If
End Sub

ملاحظة: الدالة IsTime تعمل بشكل صحيح في جميع الحالات إلا إذا تم إدخال التاريخ 30/12/1899 مع الوقت فإنها تعيد True لأن ذلك هو التاريخ المرجعي في Visual Basic (قيمته العددية 0). لكن أعتقد أن الدالة تفي بالغرض لأنه من المستبعد أن يقوم المستحدم بإدخال ذلك التاريخ، و على أية حال يمكن تطوير الدالة IsTime للتخلص من مشكلة التاريخ 30/12/1899.

نرجو الاستفادة و السلام.

اخي العزيز Najy دامك الله في صحة وعافية

فعلا اخي العزيز هذا الكود المطلوب 100% حيث ان لو وضعت تاريخ غير 30/12/1899 يكوب المطلوب قد تحقق

وكما قلت مين حيخطر في بالة هذا التاريخ اكثر من 100 عام

اشكرك مرة اخرى والى كل الاعضاء التحية والاحترام