نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

برای تشخیص معتبر بودن یا نبودن تاریخ شمسی می توانید از کد زیر استفاده کنید:

        Try
            Const pd As String = "1393/3/30"
            Dim spd As String() = Split(pd, "/")
            Dim yy As Integer = Val(spd(0))
            Dim mm As Integer = Val(spd(1))
            Dim dd As Integer = Val(spd(2))
            Dim fpd As String = String.Format("{0:0000}/{1:00}/{2:00}", yy, mm, dd)

            Dim pc As New PersianCalendar()
            pc.ToDateTime(yy, mm, dd, 12, 0, 0, 0)
            MsgBox(fpd, 64)
        Catch
            MsgBox("تاریخ اشتباه است", 48)
        End Try