مجبور کردن کاربر به وارد نمودن تاریخ به شکل مثلا 1386/07/21

[soheilbehro]

دوستان چه جوری من کاربر رو مجبور کنم که تاریخ رو به شکل 1386/07/12 وارد کنه در غیر اینصورت یه پیغام بده ، راستی من نمی خواهم از کنترل MSMASK32.OCX استفاده کنم چون نمی تونه به خوبی با بانک اطلاعاتب ارتباط برقرار کنه.

[soheilbehro]

دوستان لطفا کمک کنید

[(سیدشریفی)]

با سلام

اين برنامه مشكل شمارو حل ميكنه از همون تكست باكس خود ويژوال استفاده شده

:چشمک:

[sh2007]

اين كد رو توي كلاس ماژول بريز از اون استفاده كني مشكلت حل مي شه
Public Function Check_Date(txtDate As String) As Boolean
Dim FarsiNum As Variant
FarsiNum = Empty
If Mid(txtDate, 1, 4) < 1380 Then Exit Function
If Mid$(txtDate, 1, 4) <> Var_Year Then Exit Function
If Mid(txtDate, 6, 2) > 12 Then Exit Function
FarsiNum = Mid(txtDate, 6, 2)
If FarsiNum = 1 Then
If Mid(txtDate, 9, 2) > 31 Then Exit Function
End If
If FarsiNum = 2 Then
If Mid(txtDate, 9, 2) > 31 Then Exit Function
End If
If FarsiNum = 3 Then
If Mid(txtDate, 9, 2) > 31 Then Exit Function
End If
If FarsiNum = 4 Then
If Mid(txtDate, 9, 2) > 31 Then Exit Function
End If
If FarsiNum = 5 Then
If Mid(txtDate, 9, 2) > 31 Then Exit Function
End If
If FarsiNum = 6 Then
If Mid(txtDate, 9, 2) > 31 Then Exit Function
End If
If FarsiNum = 7 Then
If Mid(txtDate, 9, 2) > 30 Then Exit Function
End If
If FarsiNum = 8 Then
If Mid(txtDate, 9, 2) > 30 Then Exit Function
End If
If FarsiNum = 9 Then
If Mid(txtDate, 9, 2) > 30 Then Exit Function
End If
If FarsiNum = 10 Then
If Mid(txtDate, 9, 2) > 30 Then Exit Function
End If
If FarsiNum = 11 Then
If Mid(txtDate, 9, 2) > 30 Then Exit Function
End If
If FarsiNum = 12 Then
If Mid(txtDate, 9, 2) > 30 Then Exit Function
End If
Check_Date = True
End Function