Visual Basic.NET - Ultimo domingo del mes pasado en VB

Sub Main(args As String())

    Dim dtmFecha As Date = Now

    Console.WriteLine("El resultado es: " & UltimoDiaDelMes(dtmFecha))

End Sub

Function UltimoDiaDelMes(ByVal dtmFecha As Date) As Date

    UltimoDiaDelMes = DateSerial(Year(dtmFecha), Month(dtmFecha) + 1, 0)

End Function

Dim ActualFecha As Date

ActualFecha = Today   ' Por ejemplo. Tienes que poner aquí la fecha que te gusta.

Dim UltimoDiaDelMes As Integer

UltimoDiaDelMes = Date.DaysInMonth(ActualFecha.Year, ActualFecha.Month)

Dim FinalFechaDelMes As Date

FinalFechaDelMes = UltimoDiaDelMes & "/" & ActualFecha.Month & "/" & ActualFecha.Year

Dim DiaDelFecha As String = FinalFechaDelMes.DayOfWeek

Dim FechaDelUltimoDomingo As Date = FinalFechaDelMes.AddDays(DiaDelFecha)