Imports System.Globalization
Module Module1
Sub Main()
Dim [date] As DateTime
Dim culture As CultureInfo = CultureInfo.GetCultureInfo("es-ES")
Dim data As String = "jueves 14 de marzo del 2019"
If DateTime.TryParseExact(data, "dddd dd \de MMMM \del yyyy", culture, DateTimeStyles.None, [date]) Then
Console.WriteLine([date].ToString("dddd dd o\f MMMM o\f yyyy", CultureInfo.CurrentCulture))
Else
Console.WriteLine("Could not convert date")
End If
Console.ReadLine()
End Sub
End Module
Which produces the following output -Imports System.Globalization
Module Module1
Sub Main()
Dim dates = Enumerable.Range(0, 10).Select(Function(i) DateTime.Now.AddDays(-(i * 9)))
Dim culture As CultureInfo = CultureInfo.GetCultureInfo("es-ES")
For Each [date] In dates
Dim output As String = [date].ToString("dddd dd \de MMMMM \del yyyy", culture)
Console.WriteLine(output)
Next
Console.ReadLine()
End Sub
End Module
Which produces the following output -
i think i catch it