Разница между датами в формате "год/мес/день"

        Dim TimeEnd As Date = New Date(2012, 12, 12)
        Dim D As Integer
        Dim M As Integer
        Dim Y As Integer
        Dim Rslt As String = "До конца света осталось: "
 
        If Date0.Value.Day <= TimeEnd.Day Then
            Y = DateDiff(DateInterval.Year, Date0.Value, TimeEnd)
            M = DateDiff(DateInterval.Month, DateAdd(DateInterval.Year, (Y), Date0.Value), TimeEnd)
            D = TimeEnd.Day - Date0.Value.Day
        Else
            Y = DateDiff(DateInterval.Year, Date0.Value, TimeEnd)
            M = DateDiff(DateInterval.Month, DateAdd(DateInterval.Year, (Y), Date0.Value), TimeEnd) - 1
 
            If M = -1 Then
                M = 11
                Y = Y - 1
            End If
 
            D = DateDiff(DateInterval.Day, Date0.Value, DateAdd(DateInterval.Month, (-M - 12 * Y), TimeEnd)) + 1
        End If
 
 
        If Y > 0 Then
            Rslt = CStr(Y) + " г.  "
        End If
 
        If M > 0 Then
            Rslt = Rslt + CStr(M) + " мес.  "
        End If
 
        If D > 0 Then
            Rslt = Rslt + CStr(D) + " дн.  "
        End If
 
        Label1.Text = Rslt

Public Class Form1
    Public x, y As Date
    Public day, month, year As Long
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        x = ("2012, 12, 12")
    End Sub
 
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        y = DateTimePicker1.Value
        day = DateDiff(DateInterval.Day, y, x)
        month = DateDiff(DateInterval.Month, y, x)
        year = DateDiff(DateInterval.Year, y, x)
        TextBox1.AppendText(day & " дней" & month & " месяцев" & year & " лет")
    End Sub
End Class

Date.DaysInMonth()