ocx تاریخ

[mb.andisheh]

سلام.
کسی ocx یا چیزی مثل اون برای چک کردن تاریخ داره که اگر تاریخ رو اشتباه مثلا (90/6/32) در textbox وارد کردیم تاریخ رو چک کنه و پیغام بده.
ممنون.

[SlowCode]

نیازی به کامپوننت نیست، برای تشخیص درست بودن تاریخ از تابع IsDate استفاده کنید. البته از MaskEditBox هم میتونید استفاده کنید.
If IsDate(Text1.text)= False then Msgbox "تاریخ صحیح نیست"

[shahabbasic]

میتونی برای تاریخ میلادی از تابع isdate استفاده کنی

if isdate(text1.text)=true then msgbox "true"
ولی تاریخ شمسی فرق داره چون ما اول روز رو مینویسیم دوم ماه رو و آخر سال رو که برای بررسیش باید کاراکترهای بین / / و اول و آخرش رو بدست بیاری و با شرطهای کوچیکتر و بزرگتر شرطش رو بنویسی

[1101001]

Function Date_Control(Code As Integer, Text As Object, Texta As Object)
On Error Resume Next
If Code = 13 Then
If Right(Texta, 2) > 31 Then
MsgBox "مقدار روز اشتباه است", vbCritical + vbMsgBoxRight, "اخطار"
Texta.SetFocus
Else
If Left(Right(Texta, 5), 2) >= 13 Then
MsgBox "مقدار ماه اشتباه است", vbCritical + vbMsgBoxRight, "اخطار"
Texta.SetFocus
Else
Text.SetFocus
End If
End If
End If
End Function