VB.Net Дата подтверждения

Question

Пришла небольшая проблема. У меня есть функция, в которой я передаю DATE как String. Эта дата затем передается как параметр хранимой процедуре, где я проверяю ее, и она возвращает значение (0,1), является ли оно действительным или нет. Вот что происходит на коде мудрой ...

If CheckDateSP(mskAppointment.Text) Then 
    'Great now lets use this date 
else 
    msgbox "Invalid date, re-enter please" 
End if 

Передача в функцию .....

Public Function CheckDateSP(ByVal CheckThisDate As String) As Boolean 
    'Setting Connection strings and all the good stuff 
    'here's where it gives me an error 
    Dim vDate As DateTime = CheckThisDate <----HERE is the error 

End Function 

Теперь вот интересная часть - я только получаю сообщение об ошибке, если я ввести дату, как ...

13/13/2016

Все отлично работает, если я введу йа тес, такие как эти ...

12/12/2017, 10/10/2014

или любая другая дата, пока месяц меньше 13

Я получаю ошибку is ....

ERROR преобразование из строки '13/13/2016 'для ввода даты недействительно.

Answer 1

Попробуйте

Dim input As String = "13/13/2016" 

Dim dt As DateTime 
If DateTime.TryParseExact(input, "MM/dd/yyyy", New Globalization.CultureInfo("en-US"), Globalization.DateTimeStyles.None, dt) Then 
    MessageBox.Show(String.Format("The string '{0}' parsed to '{1:yyyy-MM-dd hh:mm:ss}'", input, dt)) 
Else 
    MessageBox.Show(String.Format("Couldn't parse '{0}'", input)) 
End If 

Вызов к TryParseExact возвращается верно, когда он находится в правильном формате, и ложно, когда это не так. Обратите внимание: формат, указанный для TryParseExact, представлен в виде месяца/дня/года, и я использовал Globalization.CultureInfo("en-US"), потому что я в США.