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

 
Vista:

Ultimo domingo del mes pasado en VB

Publicado por Ariana Bordon (6 intervenciones) el 13/08/2020 20:35:05
Hola! Debo sacar el ultimo domingo del mes pasado y contar cuantos dias han transcurrido desde entonces hasta la fecha actual. Tengo este codigo donde pude sacar el ultimo dia del mes, ¿que podría modificar?

1
2
3
4
5
6
7
8
9
10
11
12
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ultimo domingo del mes pasado en VB

Publicado por Phil Rob (1546 intervenciones) el 14/08/2020 10:34:33
Hola,

Quizá este puede te ayudar :
1
2
3
4
5
6
7
8
9
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)

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar