String to System date conversion in VB.NET

During my programming I was facing a problem with String to date Conversion.  Most of the time I managed to convert the String date to my system default date format "DD/MM/YYYY".

But later on as I'm going to develop projects I'm repeatedly facing problems with this date conversion and searching in the net for a solution. But as this may be a small issue for others I didn't find any proper solution for that. But I tried to build a small function which will convert the user date string to system date. So here I'm posting this code to help my fellow developers.

The code will take date string in "DD/MM/YYYY" format and convert that to a system date.


Private Function Converttodate(ByVal filedate As StringAs Date
Dim sysdateformat As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.ShortDatePattern
Dim dateseperator As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.DateSeparator

        Dim sysdatesplit() As String = sysdateformat.Split(dateseperator)
Dim filedatesplit() As String = filedate.Split("/")
Dim file_DD As String = filedatesplit(0)
Dim file_MM As String = filedatesplit(1)
Dim file_YY As String = filedatesplit(2)
Dim filedatenew As String = ""
filedatesplit = Nothing
ReDim filedatesplit(3)
For i As Int16 = 0 To sysdatesplit.Length - 1
If sysdatesplit(i).ToUpper.Contains("D"Then

                filedatesplit(i) = file_DD
ElseIf sysdatesplit(i).ToUpper.Contains("M"Then
filedatesplit(i) = file_MM
ElseIf sysdatesplit(i).ToUpper.Contains("Y"Then
If sysdatesplit(i).Length = 4 Then
filedatesplit(i) = file_YY
ElseIf sysdatesplit(i).Length = 2 Then
filedatesplit(i) = file_YY.Substring(2)
End If
End If
filedatenew = filedatesplit(0) & dateseperator & filedatesplit(1) & dateseperator & filedatesplit(2)

        Return Date.Parse(filedatenew, Nothing)
End Function

I don't know whether there may be any functions that directly do this job in as I'm very new to this.

Please send me you valuable feedback on this.

Happy Programming…. :)