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

Как посчитать количество дней между 2-мя датами?   Найти похожие ветки 

← →
Xmen   (2003-12-11 15:32) [0]

Мастера помогите!!! Как посчитать количество дней между 2-мя датами?

---

← →
Stas ©   (2003-12-11 15:38) [1]

Если я правильно понял, то так:
Var C:Integer;
begin
C:=Round(Date1-Date2);
end;

---

← →
KILLER_ABV ©   (2003-12-11 15:41) [2]

var c: string;
begin
c:= datetostr(date1-date2);
end;

---

← →
REA ©   (2003-12-11 15:43) [3]

Trunc(Abs(Date1-Date2))

или DaysBetween в D7

---

← →
MV   (2003-12-11 15:43) [4]

Особеноо приколен последний вариант. Сам-то понял?

---

← →
MV   (2003-12-11 15:44) [5]

Я имел в виду Киллера

---

← →
Stas ©   (2003-12-11 15:46) [6]

KILLER_ABV © (11.12.03 15:41) [2]

Не если будет 1 день он ему
напишет 02.01.1900

---

← →
Sam Stone ©   (2003-12-11 15:50) [7]

DecodeDate обеих дат + простая арифметика


> c:= datetostr(date1-date2);

ндя, действительно забавно

---

← →
Xmen   (2003-12-11 15:50) [8]

У меня даты в маскедит вводятся и результат в едите отражается. результат получается както не так напремер 1)12,12,03 2)25,12,03 в едит выходит 12,01,19 а мне нужно колечество дней.

---

← →
Stas ©   (2003-12-11 15:53) [9]

А ты делаешь как я написал ?

---

← →
Ega23 ©   (2003-12-11 15:53) [10]

А какой промежуток: открытый или закрытый? В смысле, сколько дней между "Сегодня" и "Вчера"? Если один, то
Trunc(Abs(Date1-Date2)) не всегда будет работать.
Правильно будет Trunc(Date1)-Trunc(Date2)

---

← →
Ega23 ©   (2003-12-11 15:56) [11]

Var C:Integer;
begin
C:=Round(Date1-Date2);
end;

Это неправильно.
Пример: Date1:=32.99; Date2:=32.21;
Round(Date1-Date2) будет равен 1

---

← →
Vovchik_A ©   (2003-12-11 17:21) [12]

А чем DaysBetween не угодил ?

---

← →
Vovchik_A ©   (2003-12-11 17:22) [13]

Аа-а-аа-а, пардон, не заметил , что D5

---

← →
Vovchik_A ©   (2003-12-11 17:35) [14]


VAR D1, D2 : TDateTime;
....
Trunc(Double(D1)-Double(D2));


Тогда так, видимо...

---

← →
ALEIIIKA ©   (2003-12-18 14:23) [15]

Самый простой способ (це):

var
Data3,Data1,Data2 : Double; // TDateTime
begin
Data3 := Int(Data1 - Data2);
//разница в сутках между двумя датами.
end;

Непонятно зачем:
>>Double(D1)
ведь описание такое

type TDateTime = type Double;

---

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

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



Память: 0.48 MB
Время: 0.015 c