Подскажите как отнять дату от даты и получить разницу между ними т.е. g=Год m=Месяцев d=Дней
Пользовался YearsBetween но чтото с днями там путаница.

Подскажить что нибудь.

Код

g := YearsBetween (Date1, Date2); m :=  MonthsBetween (Date1, Date2); d := DaysBetween  (Date1, Date2);

Я так и делал. Но эта функция выводит или общее число дней, или общее число месяцев, или общее число лет.

Например я задаю две даты:
01.01.2004
и
01.01.2005

Результат должен быть таким:
g = 1
m = 0
d = 0

или

01.01.2004
и
04.03.2005

g = 1
m = 2
d = 3

Как мне лучше такое реализовать ? чтоб и весокосные дни учитывались...

AlexanderI Если тебе нужна разница дней (0..31) месяцев (0..12) и годов тогда так:

Код

DecodeDate (Date1, y1, m1, d1); DecodeDate (Date2, y2, m2, d2); y := y1 - y2; m := m1 - m2; d := d1 - d2;

в таком случае високосность года тогда роли не играет, или я тебя опять непонял?

Я уже сам запутался

У меня задача стоит так:
Есть человек (рабочий). У него имеется стаж работы (на предыдущей работе): 5 дней 2 месяца 7 лет (d1,m1,g1). На последнию работу его приняли 04.02.05 числа (d2,m2,g2).
Формирую отчёт на сегоднешнее число 17.04.05 (d3,m3,g3).

Вот мне и нужно От сегодняшнего числа отнять число когда его приняли на работу, и прибавить его стаж на предыдущей работе.

Что мне лучше подайдёт ?

Это сообщение отредактировал(а) AlexanderI - 17.4.2005, 14:01

Вот, бери. Юнит с наиболее нужными функциями работы с датами. Писал кагда-то для себя, но вижу, что и тебе не помешает.

Присоединённый файл ( Кол-во скачиваний: 36 )
 DateUtils.pas

to AlexanderI.
Интересно, а когда ты говоришь: "Он работал 3 года 1 месяц и 3 дня", какой месяц ты имеешь ввиду? От этого зависит сколько в нем было дней 28, 28, 30, или 31?
Т.е., например, если
d1 = 01 янв 2001
и
d2 = 01 фев 2001,
то разница между этими датами составляет 31 день. Но, если это записать в N месяцев и N дней, то возможны варианты:
1 месяц 0 дней (если имеется ввиду месяц с 31 днем)
1 месяц 1 день (если имеется ввиду месяц с 30-ю днями)
1 месяц 2 дня (если имеется ввиду месяц с 29-ю днями)
1 месяц 3 дня (если имеется ввиду месяц с 28-ю днями)

Какой ответ ты считаешь правильным?

Поэтому, когда речь идет о том что прошло какое то время, например срок работы, то говорить можно лишь о числе прошедших дней.

Цитата(Poseidon @ 17.4.2005, 17:30)

Вот, бери. Юнит с наиболее нужными функциями работы с датами. Писал кагда-то для себя, но вижу, что и тебе не помешает.

Конешно спасибо за помощь, но Это тоже самое что и YearsBetween. Не помогло.

Цитата

to AlexanderI. Интересно, а когда ты говоришь: "Он работал 3 года 1 месяц и 3 дня", какой месяц ты имеешь ввиду?

Вот я сам низнаю.
У меня есть программа написанная под DOS. Мне её нужно переписать под Винду. Исходников нет, ничего нет.
Она выдаёт вот такие результаты:
Начальная дата | Конечная дата | Результат (лет, месяцев, дней)
01.02.2002_______20.04.2005_____3, 2, 19
17.09.1972_______20.04.2005_____32,7,3
17.01.1994_______20.04.2005_____8,4,7
01.09.1993_______20.04.2005_____11,0,8

Это сообщение отредактировал(а) AlexanderI - 20.4.2005, 21:13

01.09.1993_______20.04.2005_____11,0,8

по моему прога глючит


Если я правильно понял то задача решается следующим алгоритмом:

function GetYDM(DateFrom, DateTo : TDate; var Y,M,D : integer): boolean;
var
Yl, Ml, Dl, l,
Yh, Mh, Dh : integer;
begin
Result := False;
if (DateFrom > DateTo) then
exit
else
Result := True;

Yl := YearOf(DateFrom);
Ml := MonthOf(DateFrom);
Dl := DayOf(DateFrom);
Yh := YearOf(DateTo);
Mh := MonthOf(DateTo);
Dh := DayOf(DateTo);

// calculate days
D := Dh - Dl;
l := 1;
if (D < 0) then
case Ml of
1,3,5,7,8,10,12 : d := 31 + d;
2 : if (Yl mod 4) = 0 then
d := 29 + d
else
d := 28 + d;
4,6,9,11 : d := 30 + d;
end
else
l := 0;

// calculate monthes
M := Mh - Ml - l;
l := 1;
if (M < 0) then
M := 12 + M
else
l := 0;

// calculate years
Y := Yh - Yl - l;
end;

Цитата(AlexanderI @ 20.4.2005, 22:12)

Вот я сам низнаю. У меня есть программа написанная под DOS. Мне её нужно переписать под Винду. Исходников нет, ничего нет.

Ну если не знаешь, то опираться надо на семантику задачи.
А так, это попытка реализовать кишки черного ящика.

Цитата(AlexanderI @ 20.4.2005, 22:12)

Она выдаёт вот такие результаты: Начальная дата | Конечная дата | Результат (лет, месяцев, дней) 01.02.2002_______20.04.2005_____3, 2, 19 17.09.1972_______20.04.2005_____32,7,3 17.01.1994_______20.04.2005_____8,4,7 01.09.1993_______20.04.2005_____11,0,8

На мой взгляд, это полный бред.
Например, каким это образом она считает что между датами 17.01.1994 и 20.04.2005 прошло всего 8 лет?
Короче, таких вопросов здесь много, если внимательно посмотреть.

Повторюсь, критерием истины может быть только семантика задачи.