Дата в время. Обратный отчет - Visual Basic .NET

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

Здравствуйте. Надо сделать обратный отчет. Допустим, соревнования начинаются 30.03.2017. Нужно вычислить сколько осталось Месяцев, дней, часов и секунд. Спасибо

Решение задачи: «Дата в время. Обратный отчет»

textual
                            Листинг программы 
                        

                            Dim ts As TimeSpan = ТвояДата - Now
txt1.Text = TSpan(ts)
 
Private Function TSpan(ts As TimeSpan) As String
        Dim sb As New StringBuilder
        sb.AppendLine(String.Format("{0:%d} Дней. {0:%h} Часов. {0:%m} Минут. {0:%s} Секунд.", ts))
        Return Replace(sb.ToString, vbCrLf, "")
End Function
                        