نطاق الوقت

[خليل خليل داماس]

السلام عليكم
كل الشكر لهذا المنتدى الرائع و القائمين عليه و رمضان كريم
عندي هذا الفورم
لدي 2 
TextBox
 Text2 , Text3 من نوع Date
عندما تكون
Text2 >=8.30 AM And Text2 <= 8.30 AM
أي أن النطاق نصف ساعة , من الساعة الثامنة إلى الساعة الثامنة و النصف
حينئذ 
Text3 = 8.30 AM
غير ذلك
Text3=Text2
 

انا حاولت على الشكل التالي :
Private Sub Text2_Exit(Cancel As Integer)
On Error Resume Next
Dim t1 As Date
For t1 = #8:00:00 AM# To #8:30:00 AM#
If Text2 = t1 Then
Text3 = #8:03:00 AM#
Else
Text3 = Text2
End If
Next t1
End Sub
و دون جدوى
و حاولت أيضا

Private Sub Text2_Exit(Cancel As Integer)
On Error Resume Next
If Text2 >= 8.00.00 AM And Text2 <= 8.30.00 AM Then
Text3 = #8:03:00 AM#
Else
Text3 = Text2
End If
End Sub

و أيضا بلا فائدة
و لكم جزيل الشكر

Database1.rar

[ابوخليل]

هذا الكود يعمل 

If Text2 >= #8:00:00 AM# And Text2 <= #8:30:00 AM# Then
Text3 = #8:30:00 AM#
Else
Text3 = Text2
End If

 

db2.rar

[خليل خليل داماس]

16 hours ago, ابوخليل said:

هذا الكود يعمل 

If Text2 >= #8:00:00 AM# And Text2 <= #8:30:00 AM# Then
Text3 = #8:30:00 AM#
Else
Text3 = Text2
End If

 

db2.rar

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

On Error Resume Next
If (Text2 > #8:30:00 AM#) Then
Text3 = Text2
ElseIf (Text2 < #8:00:00 AM#) Then
Text3 = Text2
ElseIf (Text2 >= #8:00:00 AM#) Then
Text3 = #8:30:00 AM#
ElseIf (Text2 <= #8:30:00 AM#) Then
Text3 = #8:30:00 AM#
End If
ألف شكر لك مرة أخرى

بصراحة لا أعرف برمجيا كيف يمكن التعبير عن هذه الجملة :
"إذا كان المربع النصي, ينتمي إلى المجال العددي , افعل كذا, وإذا لا ,افعل غير ذلك ."

ألف شكر إلك مرة أخرى

 

[بسملة جمال]

If IsNumeric(Text1) = True Then
MsgBox "قيمة رقمية"
Else
MsgBox "قيمة غير رقمية"
End If

 

[خليل خليل داماس]

22 hours ago, بسملة جمال said:

If IsNumeric(Text1) = True Then
MsgBox "قيمة رقمية"
Else
MsgBox "قيمة غير رقمية"
End If

 

شكرا لمرورك الطيب و رمضان كريم
أنا قصدي من النطاق :
مثلاّ عندي  إثنان من ال TEXTBOX
TEXT1 , TEXT2
فإذا كان 
TEXT1 ينتمي إلى المجال العددي 
من  50 حتى100 
عندئذ يكون ال TEXT2 يساوي 80
و إذا كان ال TEXT1 خارج هذا المجال
يكون ال TEXT2 يساوي10 
هنا كيف يمكن التعبير برمجيا 
أن ال TEXT1 ينتمي إلى المجال العددي
ليس المطلوب إظهار MsgBox
و شكرا