Как определить была ли уже в этом году дата с указанным месяцем и днём или ещё нет? - Visual Basic .NET

Формулировка задачи:

Нужно зная дату рождения определить было ли у человека в этом году День рождения или пока нет? Мой вариант:

                    Листинг программы
                
 
                        
                          
                    
        Dim BDate As Date = #11/23/1960#
        Dim iRes As Integer
        iRes = DateSerial(2000, DatePart("m", BDate), DatePart("d", BDate)) < DateSerial(2000, DatePart("m", Date.Today), DatePart("d", Date.Today))
        If iRes = 0 Then
            Label1.Text = Format(BDate, "d MMMM") & " в этом году ещё не было."
        Else ' iRes = -1
            Label1.Text = Format(BDate, "d MMMM") & " в этом году уже было."
        End If

кажется мне очень громоздким. Может это можно сделать как-то короче?

Решение задачи: «Как определить была ли уже в этом году дата с указанным месяцем и днём или ещё нет?»

textual
                            Листинг программы 
                        
То_что_ввели & "." & Now.Year

Оцени полезность:

12 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы