#Region " Date Difference "
 
    ' Date Difference
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(DateDifference(DateTime.Parse("01/03/2013"), DateTime.Parse("10/04/2013"))) ' Result: 1 Months, 1 Weeks, 2 Days, 0 Hours, 0 Minutes and 0 Seconds
    ' MsgBox(DateDifference(DateTime.Parse("01/01/2013 14:00:00"), DateTime.Parse("02/01/2013 15:00:30"))) ' Result: 0 Months, 0 Weeks, 1 Days, 1 Hours, 0 Minutes and 30 Seconds
 
    Private Function DateDifference(ByVal Date1 As DateTime, ByVal Date2 As DateTime) As String
 
        Dim MonthDiff As String, WeekDiff As String, _
            DayDiff As String, HourDiff As String, _
            MinuteDiff As String, SecondDiff As String
 
        MonthDiff = Convert.ToString(DateDiff("M", Date1, Date2))
        WeekDiff = Convert.ToString(DateDiff("d", Date1.AddMonths(DateDiff("M", Date1, Date2)), Date2) \ 7)
        DayDiff = Convert.ToString(DateDiff("d", Date1.AddMonths(DateDiff("M", Date1, Date2)), Date2) - (WeekDiff * 7))
        HourDiff = Convert.ToString(DateDiff("h", Date1.AddHours(DateDiff("h", Date1, Date2)), Date2) - (Date1.Hour - Date2.Hour))
        MinuteDiff = Convert.ToString(DateDiff("n", Date1.AddMinutes(DateDiff("n", Date1, Date2)), Date2) - (Date1.Minute - Date2.Minute))
        SecondDiff = Convert.ToString(DateDiff("s", Date1.AddSeconds(DateDiff("s", Date1, Date2)), Date2) - (Date1.Second - Date2.Second))
 
        Return String.Format("{0} Months, {1} Weeks, {2} Days, {3} Hours, {4} Minutes and {5} Seconds", _
                             MonthDiff, WeekDiff, DayDiff, HourDiff, MinuteDiff, SecondDiff)
 
    End Function
 
#End Region

public string DateDifference(DateTime dateStart, DateTime dateEnd)
{
    Dictionary<string, double> dateParts = new Dictionary<string, double>();
    dateParts.Add("Years", 31556925.97632);
    dateParts.Add("Months", 2629743.83136);
    dateParts.Add("Weeks", 604800);
    dateParts.Add("Days", 86400);
    dateParts.Add("Hours", 3600);
    dateParts.Add("Minutes", 60);
    dateParts.Add("Seconds", 1);
 
    TimeSpan time = dateEnd - dateStart;
    double totalSeconds = time.TotalSeconds;
    List<string> result = new List<string>();
    int diff;
 
    foreach (KeyValuePair<string, double> part in dateParts)
    {
        diff = (int)(totalSeconds / part.Value);
        totalSeconds -= (diff * part.Value);
 
        result.Add(string.Format("{0} {1}", diff, part.Key));
    }
 
    return string.Join(", ", result.ToArray());
}

Private Function DateDifference(ByVal Date1 As DateTime, ByVal Date2 As DateTime) As String
 
       Dim Time As TimeSpan
       Dim MonthDiff As Integer, WeekDiff As Integer
 
       Do Until Date1 > Date2
           Date1 = Date1.AddMonths(1)
           MonthDiff += 1
       Loop
 
       MonthDiff -= 1
       Date1 = Date1.AddMonths(-1)
       Time = (Date2 - Date1)
       WeekDiff = (Time.Days \ 7)
       Time = (Time - TimeSpan.FromDays(WeekDiff * 7))
 
       Return String.Format("{0} Months, {1} Weeks, {2} Days, {3} Hours, {4} Minutes and {5} Seconds", _
                            MonthDiff, WeekDiff, Time.Days, Time.Hours, Time.Minutes, Time.Seconds)
 
   End Function

Private Function DateDifference(ByVal Date1 As DateTime, ByVal Date2 As DateTime) As String
 
        Dim Time As TimeSpan
        Dim MonthDiff As Integer, QuincenaDiff As Integer, weekdiff As Integer
 
        Do Until Date1 > Date2
            Date1 = Date1.AddDays(30)
            MonthDiff += 1
 
            Date1 = Date1.AddDays(15)
            QuincenaDiff += 1
 
            Date1 = Date1.AddDays(7)
            weekdiff += 1
        Loop
 
        MonthDiff -= 1
        Date1 = Date1.AddDays(-30)
 
        QuincenaDiff -= 1
        Date1 = Date1.AddDays(-15)
 
        weekdiff -= 1
        Date1 = Date1.AddDays(-7)
 
        Time = (Date2 - Date1)
        QuincenaDiff  = (Time.Days \ 15)
        Time = (Time - TimeSpan.FromDays(QuincenaDiff * 15))
 
        Time = (Date2 - Date1)
        weekdiff = (Time.Days \ 7)
        Time = (Time - TimeSpan.FromDays(weekdiff * 7))
 
 
 
        Return String.Format("{0} Months, {1} Quincenas, {2} weeks, {3} days, {4} Minutes and {5} Seconds", _
                             MonthDiff, QuincenaDiff, weekdiff, Time.Days, Time.Hours, Time.Minutes, Time.Seconds)
 
    End Function