Скачать: CL | DM;

Вычитание дат   Найти похожие ветки 

← →
galexis ©   (2003-07-09 17:42) [0]

Уважаемые мастера! Подскажите пожалуйста, как решить такую задачу: нужно вычесть одну дату из другой и узнать сколько лет, месяцв и дней получилось. Спасибо. Извините за тривиальный вопрос.

---

← →
Smashich ©   (2003-07-09 17:47) [1]

procedure DateDiff(Date1, Date2: TDateTime; var Days, Months, Years: Word);
var
Day1, Day2, Month1, Month2, Year1, Year2: Word;
begin
if Date1 > Date2 then
begin
Days:=0;
Months:=0;
Years:=0;
EXIT;
end;
DecodeDate(Date1, Year1, Month1, Day1);
DecodeDate(Date2, Year2, Month2, Day2);
Years := Year2 - Year1;
Months := 0;
Days := 0;
if Month2 < Month1 then begin
Inc(Months, 12);
Dec(Years);
end;
Inc(Months, Month2 - Month1);
if Day2 < Day1 then
begin
Inc(Days, DaysPerMonth(Year1, Month1));
if Months = 0 then
begin
Dec(Years);
Months := 11;
end
else
Dec(Months);
end;
end;

---

← →
Poirot ©   (2003-07-09 18:06) [2]

Нефига закатил!!!

---

← →
Smashich ©   (2003-07-09 18:10) [3]

вырезал и вставил:)

---

← →
Poirot ©   (2003-07-09 18:11) [4]

А вырезал наверное чуть-ли не SysUtils!

---

← →
Smashich ©   (2003-07-09 18:15) [5]

ну не совсем;) из rx

---

← →
Е-Моё имя ©   (2003-07-09 18:33) [6]

-Какую методику вы использовали при написании диплома?
- Ctrl+C,Ctrl+V
$))

---

← →
Семен Сорокин ©   (2003-07-09 18:34) [7]

galexis © (09.07.03 17:42)
Result := Round(Date1) - Round(Date2); // результат в днях
:))

---

← →
Переяслов Григорий ©   (2003-07-09 19:51) [8]

DT := DateTime2-DateTime1;
DecodeTime(DT, Year, Month, Day);
и нехрен париться

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c