Module Module1
Sub Main()
' Ultimo dia del año
Dim hoy = DateTime.Today
Console.WriteLine("El ultimo dia del año: {0}", UltimoDiaAño(hoy)) ' Ultimo dia del año 1986
Dim cualquiera As New DateTime(1986, 6, 15)
Console.WriteLine("El ultimo dia del año 1986: {0}", UltimoDiaAño(cualquiera)) End Sub
''' <summary>
''' Funcion que retorna el ultimo dia de una fecha dada
''' </summary>
Private Function UltimoDiaAño(ByVal d As DateTime) As DateTime
Dim time As New DateTime((d.Year + 1), 1, 1)
Return time.AddDays(-1)
End Function
End Module
Crear cuenta
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios