بهترین راه برای استفاده از تاریخ شمسی

[mohsen_iceman2000]

دنبال یه راه حل برای تاریخ شمسی هستم که هیچ مشکلی نداشته باشه و بشه زمان ورودی کاربر چک بشه که داره درست وارد می کنه یا نه


مرسی

[Fery666]

این پست شاید مشکلتون رو حل کنه : http://barnamenevis.org/showthread.php?412372-%D8%AA%D8%A8%D8%AF%DB%8C%D9%84-%D8%B4%D9%85%D8%B3%DB%8C-%D8%A8%D9%87-%D9%85%DB%8C%D9%84%D8%A7%D8%AF%DB%8C-%D9%88-%D8%A8%D8%A7%D9%84%D8%B9%DA%A9%D8%B3

[vb341]

با استفاده از این تابع مشکلتون حل میشه

Public Function CheckDate(ByVal T As String) As Boolean
Try
Dim s1 As Integer
Dim s2 As Integer
Dim s3 As Integer
Dim s4 As Integer
s1 = Microsoft.VisualBasic.Mid(t, 6, 1)
s2 = Microsoft.VisualBasic.Mid(t, 6, 2)
s3 = Microsoft.VisualBasic.Mid(t, 9, 1)
s4 = Microsoft.VisualBasic.Mid(t, 9, 2)

If s2 = 0 Then Return False
If s2 > 6 And s4 > 30 Then
Return False
End If

If s4 = 0 Then
Return False
End If

If s1 > 1 Or s2 > 12 Or s3 > 3 Or s4 > 31 Then

Return False
Else
Return True
End If
Catch ex As System.Exception
Return False
End Try
End Function