Преобразование дней в год, месяц, день Формат даты и времени

Question

Я изучаю функции и процедуру TDateTime, но не нашел то, что позволило мне преобразовать несколько дней в эквивалентные Год, Месяц, День, например, если у меня есть дни = 0 я должен иметь в качестве результата:

Year: 0 
Month: 0 
Day: 0 

или я есть дни = 1, должны иметь:

Year: 0 
Month: 0 
Day: 1 // Just 1 day 

или если у меня есть дни = 32:

Year: 0 
Month: 1 // January is 31 days 
Day: 1 // Day is 1 
      // Total are 32 days 

и т. Д., Учитывая также, когда февральский месяц составляет 29 дней и не только 28. В delphi xe2, кто может сказать мне, какую функцию это сделать, или, если нужно, написать его вручную? Огромное спасибо.

Answer 1

Используя методы в DateUtils:

procedure daysToDate(days: Integer; out day, month, year: Integer); 
var 
    january1st: TDateTime; 
    targetDate: TDateTime; 
begin 
    january1st := StartOfTheYear(Now()); 
    targetDate := IncDay(january1st, days); 

    day := DayOfTheMonth(targetDate) - 1; 
    month := MonthOfTheYear(targetDate) - 1; 
    year := YearOf(targetDate) - YearOf(january1st); 
end; 

Этот код предполагает, что вы считать дни в текущем год. Если вы хотите начать в другой год, то при необходимости измените строку january1st := StartOfTheYear(Now());.

Answer 2

Я не совсем понимаю ваш вопрос.

Если вы хотите перевести несколько дней (в некоторых TimeSpan):

Там нет ничего в точности, как это, по той простой причине, что она не была четко определена, по той причине, вы даете : не каждый месяц имеет одинаковое количество дней. Следовательно, вход не может быть только несколькими днями. Например, каким должен быть результат, если вы введете «35 дней»? Должно быть «1 месяц, 4 дня» или «1 месяц, 5 дней», «1 месяц, 6 дней» или «1 месяц, 7 дней»? Вместо этого вам нужно указать начальную и конечную даты.

Теперь в DateUtils, у вас есть DaysBetween, MonthsBetween и YearsBetween, но эти являются только приблизительной.

Если вы можете жить с приблизительными значениями, это легко: число лет равно целочисленной части числа дней, деленное на 365,24, число месяцев равно дробной части раз 12 и т. Д.

Если вы хотите получить Nth день какой-то год:

IncDay(StartOfTheYear(SomeYear), N)