Как определить, является ли дата последним днем ​​месяца?

Question

Может кто-нибудь помочь мне в том, как определить, была ли данная дата последней датой или днем ​​в месяц?

Например, у меня две даты, одна - 2013-01-27, а другая - 2013-02-28. Мне нужно определить, была ли дата последней. Таким образом, тот, который должен отображаться, был 2013-02-28, потому что его последний день месяца в феврале, а 2013-01-27 был не последним днем ​​месяца в январе.

Какое состояние я могу использовать?

Заранее спасибо.

Answer 1

Используйте это:

Function IsLastDay(ByVal myDate As Date) As Boolean 
    return myDate.Day = Date.DaysInMonth(myDate.Year, myDate.Month) 
End Function 

Answer 2

Добавьте один день, и если результирующий ответ не совпадает с тем же месяцем, ваша дата будет последним днем ​​месяца.

Answer 3

Или вы можете проверить, находится ли следующий день в первый день месяца.

Если вы используете рубин, вы можете использовать условие:

(date + 1).day == 1 

Или, если вы используете Python:

(date + datetime.timedelta(days=1)).day == 1 

Ура!

Answer 4

Это работает для меня:

Dim isLastDayOfMonth As Func(Of DateTime, Boolean) = _ 
    Function (dt) dt.AddDays(1).Day = 1 

Answer 5

Надеюсь, это поможет вам, его код для предложенного ответа Шон де Вет. Вы можете переключаться Datetime.today.month для других переменного с определенной датой, а затем просто переключает Today.Adddays (1) с конкретным date.AddDays (1)

Dim dateOfToday As DateTime = Today.AddDays(1) 

Sub isTodayTheLastDay() 
    If DateTime.Today.Month = dateOfToday.Month Then 
     'yes its the same month, place code here 
    Else 
     'no its not the same month, place code here 
    End If 

End Sub 

-

Dim dateToCheck As New DateTime(2013, 4, 21) 'any date you want to check here 
Dim Check As DateTime = dateToCheck.AddDays(1) 


Sub isTodayTheLastDay() 
    If dateToCheck.Month = Check.Month Then 
     'yes its the same month, place code here 
    Else 
     'no its not the same month, place code here 
    End If 

End Sub