Как посчитать количество дней между 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)

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

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

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

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

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

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

Самый простой способ (це):
var Data3,Data1,Data2 : Double; // TDateTime begin Data3 := Int(Data1 - Data2); //разница в сутках между двумя датами. end;
Непонятно зачем:
>>Double(D1)
ведь описание такое

type TDateTime = type Double;

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