Public Shared Function ConvertDateToSQLServerFormat(ByVal dateStr As String) As String
        Dim formatStrings As String() = {"dd/MM/yyyy", "dd.MM.yyyy", "yyyy-MM-dd", "yyyy/MM/dd", "MM/dd/yyyy", "MM-dd-yyyy"}
        Dim dateValue As Date
        If Date.TryParseExact(dateStr, formatStrings, System.Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dateValue) Then
            Return dateValue.ToString("yyyy-MM-dd")
        Else
            Return DateTime.Now.ToString("yyyy-MM-dd")
        End If
    End Function




    Public Shared Function GetYearFromDate(ByVal dateStr As String) As Integer
        Dim formatStrings As String() = {"dd/MM/yyyy", "dd.MM.yyyy", "yyyy-MM-dd", "yyyy/MM/dd", "MM/dd/yyyy", "MM-dd-yyyy"}
        Dim dateValue As Date
        If Date.TryParseExact(dateStr, formatStrings, System.Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dateValue) Then
            Return dateValue.Year
        Else
            Return DateTime.Now.Year
        End If
    End Function