نوشتن ساعت در تکست باکس

[SeyedMoosavi]

سلام
خسته نباشید
من می خوام داخل یک تکست باکس( TextBox) ساعت بنویسیم طوری که اگر کاربر چیزی غیر از ساعت نوشتیعنی فرمت نوئسته این طوری نبود "12:20:30" یا هر ساعت دیگه ای خطا بده
با تشکر

[مهران رسا]

سلام



h = Left(Text1.Text, 2)
m = Mid(Text1.Text, 4, 2)
s = Right(Text1.Text, 2)

If Mid(Text1.Text, 3, 1) = ":" And _
Mid(Text1.Text, 6, 1) = ":" And _
(Len(Text1.Text) > 7 And Len(Text1.Text) < 9) And _
(h < 24 And h > 1 And m < 59 And m > 1 And s < 59 And s > 1) Then
MsgBox "True Time Format", vbInformation
Else
MsgBox "Invalid Time Format", vbExclamation
End If

[SeyedMoosavi]

دستتتون درد نکنه اما اگر کاربر این رو وارد کنه چی؟
55:88:99 بازم میگه درسته درصورتی که درست نیست

[Pr0grammer]

چرا از Masked Edit استفاده نمی کنید!
با Masked Edit دیگه به این دردسر ها احتیاجی نیست!

پروژه تونو باز کنید و Ctrl+T رو بزندی و MicroSoft Masked Edit Control 6.0 رو انتخاب کنید.....
طرز کارش هم ساده هستش، حتماً می تونید...

اگه بازم مشکل داشتی بگو؛ موفق باشید.

[vbhamed]

سلام



On Error Resume Next

Dim d As Date

Err.Clear

d = Text1

If Err Then
MsgBox "Error", vbExclamation
Else
MsgBox "Successful", vbInformation
End If

[مهران رسا]

دستتتون درد نکنه اما اگر کاربر این رو وارد کنه چی؟
55:88:99 بازم میگه درسته درصورتی که درست نیست

Edit شد ! :لبخندساده:

[ali_habibi1384]

از ماسک استفاده کنید :
##:##:##