Cuando trabajas con fechas (en especial si tienes que trabajar con el último día del mes) hay que tener en cuenta que algunas veces el mes de febrero tiene 29 días (los llamados años bisiestos). Pues bien, para saber si un febrero es bisiesto podemos recurrir a este sencillo código:
Dim MyDate As Date = CDate("01/02/2012") Dim DaysInMonth As Integer = Date.DaysInMonth(MyDate.Year, MyDate.Month) Dim LastDayInMonthDate As Date = New Date(MyDate.Year, MyDate.Month, DaysInMonth) MsgBox(LastDayInMonthDate)
No hay comentarios:
Publicar un comentario