Vb.net Получить первый день года/последний день прошлого месяца/первый день прошлого месяца из даты текстового поля

    Dim baseDate As DateTime

    Dim beginningOfYear As DateTime
    Dim beginningOfPreviousMonth As DateTime
    Dim endOfPreviousMonth As DateTime

    If DateTime.TryParse(TextBox1.Text, baseDate) Then
        beginningOfYear = New DateTime(Year(baseDate), 1, 1)

        Dim previous As DateTime = baseDate.AddMonths(-1)
        beginningOfPreviousMonth = baseDate.AddMonths(-1).AddDays(-1 * previous.Day).AddDays(1)

        endOfPreviousMonth = beginningOfPreviousMonth.AddMonths(1).AddDays(-1)

        Console.WriteLine("Base date: {0} Beginning of year: {1} Beginning of previous month: {2} End of previous month: {3}", baseDate, beginningOfYear, beginningOfPreviousMonth, endOfPreviousMonth)
    Else
        Console.WriteLine("Invalid date")
    End If

Но вы должны использовать DateTimePicker для ввода даты

Спасибо за ответ, и я близок.

Dim previous As DateTime = baseDate.AddMonths(-1)
beginningOfPreviousMonth = baseDate.AddMonths(-1).AddDays(-1 * previous.Day).AddDays(1)

ВС не понравился твой предыдущий день, и я не знаю почему.