Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
ВнизКак посчитать количество дней между 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c