Блог

Я пытаюсь преобразовать строку из базы данных в тип даты в этом формате «гггг-М-д».
Строка хранится в этом формате «гггг-М-д»
, поэтому я могу выполнить этот код с переменными даты в этом формате «гггг-М-д»
, потому что опция Strict В Visual Studio 2019 версии 16.7.5 НЕ устраивает

 If gvTorF = "False" And varToday > varFTue Then
 

Во-первых, я не уверен, что это необходимо, но сообщения, которые я читал о сравнении дат, делают это предложение
Вот мои переменные

 Dim varToday As Date
Dim varFTue As Date
Dim varStr As String
 

Затем я нажимаю кнопку, чтобы получить данные из базы данных С помощью приведенного ниже кода

 Public Sub GetDateInfo()
    Using conn As New SQLiteConnection($"Data Source = '{gv_dbName}';Version=3;")
        conn.Open()
        Using cmd As SQLiteCommand = New SQLiteCommand($"SELECT * FROM DateInfoTable WHERE DID = '1'", conn)
            Using rdr As SQLite.SQLiteDataReader = cmd.ExecuteReader
                While rdr.Read()
                    varTorF = rdr("ditORf").ToString
                    'varFTue = CDate(rdr("diTESTdate")) 'shows as 10/26/2021
                    'varFTue = Date.ParseExact(varStr, "yyyy-M-d", provider As IFormatProvider, As Date)
                    'Tried line of code above this can NOT format correct 
                    varTESTdate = CType(rdr("diTESTdate"), String) 'shows as 2021-10-26
                End While
                rdr.Close()
            End Using
        End Using
    End Using
End Sub
 

Кроме отключения опции Строгий или просто используйте формат «M-d-гггг» для запуска моего теста
Где varToday > varFTue, который, кажется, работает
Вопрос в том, каковы мои другие варианты преобразования строки в дату?

Функция ниже преобразует две строки varTESTdate и varTodayStr
varTESTdate берется из базы данных, а varTodayStr создается в функции.
Здесь указана функция и вызов, выполненный за событием нажатия кнопки

 bothDates(varTESTdate, varTodayStr)

Public Function bothDates(ByVal varTESTdate As String, ByVal varTodayStr As String) As Object
    result1 = Date.ParseExact(varTESTdate, "yyyy-M-d", provider:=Nothing)
    Dim dateToday = Date.Today
    varTodayStr = dateToday.ToString("yyyy-M-d")
    result2 = Date.ParseExact(varTodayStr, "yyyy-M-d", provider:=Nothing)
    Return (result1, result2)
End Function
 

Похоже, у вас уже есть преобразование в вашем коде

 Dim d = DateTime.ParseExact("2026-10-26", "yyyy-M-d", Nothing) 'or provide a culture instead of Nothing..
 

Хотя я не уверен, для чего нужен трейлинг «Как IFormatProvider, как дата»

     'varFTue = Date.ParseExact(varStr, "yyyy-M-d", provider As IFormatProvider, As Date)
                                                   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 

Это синтаксическая ошибка в данном контексте в vb и выглядит как остаточный артефакт преобразования из C#, где мы используем «как X» для выполнения приведений. Не думайте, что преобразователи постоянно совершенствуют весь код; вам почти всегда приходится исправлять их вывод, особенно если вы вставляете только те части программы, где они не могут видеть все объявленные переменные (ваш код, похоже, не содержит provider в качестве переменной).