конвертировать количество дней в лет, месяцев, дней

Question

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

Пример: Опыт работника рассчитывается согласно его дате join(DOJ) и дате Relieve(DOR). У нас есть DOJ, DOR and Number дней, когда он работает в качестве сотрудника.

Необходимо рассчитать, сколько лет и месяцев и дней.

Example  : DOJ = 14 Feb 2000 
       DOR = 08 aug 2013 
Output  : 13 Years - 5 Months - 25 Days 

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

Answer 1

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

var dor = new DateTime(2013, 08, 08); 
var doj = new DateTime(2000, 02, 14); 

var totalmonths = (dor.Year - doj.Year) * 12 + dor.Month - doj.Month; 
totalmonths += dor.Day < doj.Day ? -1 : 0; 

var years = totalmonths/12; 
var months = totalmonths % 12; 
var days = dor.Subtract(doj.AddMonths(totalmonths)).Days; 

Answer 2

Вы не можете преобразовать количество дней в летние месяцы и дни, потому что вы не знаете, где в эти дни лежат. Например, они могут охватывать 29 февраля в високосный год.

Однако у вас уже есть две даты для работы с так что вы можете вычислить это значение, как так:

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click 

    Dim doj As Date = New Date(2000, 2, 14) 
    Dim dor As Date = New Date(2013, 8, 8) 

    MessageBox.Show(GetDateSpanText(doj, dor)) 

End Sub 

Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String 
    Try 
     Dim years As Integer = 0, months As Integer = 0, days As Integer = 0 
     If toDate = Nothing Then toDate = DateTime.Now 

     Do Until toDate.AddYears(-1) < fromDate 
      years += 1 
      toDate = toDate.AddYears(-1) 
     Loop 

     Do Until toDate.AddMonths(-1) < fromDate 
      months += 1 
      toDate = toDate.AddMonths(-1) 
     Loop 

     Do Until toDate.AddDays(-1) < fromDate 
      days += 1 
      toDate = toDate.AddDays(-1) 
     Loop 

     Return String.Format("{0} Years {1} Months {2} Days", years, months, days) 
    Catch ex As Exception 
     Return "Error" 
    End Try 
End Function