Промежутки времени

← →
Sam Stone (2003-10-16 17:47) [0]

Подскажите, как узнать, сколько месяцев сменилось между двумя датами? Число в дате не играет значения, только месяц и год (т.е., например, между 20 марта и 10 апреля 1 месяц). Есть функция MonthsBetween, но она считает месяц равным 30,43 дня. (по ней между 1 февраля и 1 марта 0 месяцев).

← →
Anatoly Podgoretsky (2003-10-16 17:50) [1]

DecodeDate, ну а вычитать наверно умеешь

← →
Семен Сорокин (2003-10-16 17:55) [2]

если все же не получится вычесть :)), то
uses
DateUtils;

MonthsBetween()

← →
Sam Stone (2003-10-16 18:16) [3]

2 Семен Сорокин

Для умеющих вычитать написал: " Есть функция MonthsBetween, но она считает месяц равным 30,43 дня. (по ней между 1 февраля и 1 марта 0 месяцев)."
А мне нужно сколько месяцев сменилось между двумя датами

Так что придется дважды пользовать DecodeDate и вычитать ;)

← →
AlexS (2003-10-16 19:31) [4]

Попробуй сделать так:

procedure TForm1.Button1Click(Sender: TObject);
Var d1, d2 : TDateTime;
i, d, m, y: Word;
begin
d1 := StrToDate(Edit1.Text);
d2 := StrToDate(Edit2.Text);
DecodeDate(d1, y, m, d);
i := 0;
While d2>=EncodeDate(y, m+i, d) do Inc(i);
Label2.Caption := IntToStr(i-1);
end;

Тогда у тебя точно получится сколько прошло месяцев.

← →
Sam Stone (2003-10-16 19:53) [5]

Я уже сделал. Помоему проще.

var a,b,c,d,e,f,res:word;
begin
decodedate(date1,a,b,c);
decodedate(date2,d,e,f);
res:=(d-b)*12+(e-f)+1;
end;

← →
AlexS (2003-10-16 20:07) [6]

Между датами 12.01.03 и 11.01.03 прошел 1 полный месяц, а у тебя покажет 2.

← →
Anatoly Podgoretsky (2003-10-16 20:29) [7]

Промежутки времени Найти похожие ветки