Вычисление количества дней между датами

@matrixkot · Регистрация: 06.03.2013

Author24 — интернет-сервис помощи студентам

Добрый день суть проблемы такова, есть 3 поля едит в первом окне стоит реальная дата например 21.11.2016
во втором поле другая дата например 20.12.2016, в третьем поле должна стоять разница дней между данными датами, вот как это вычисление дней сделать?

@wendstor · 22.11.2016, 00:35

DaysBetween

@matrixkot · 22.11.2016, 21:28 **[ТС]**

решил таким вариантом

Delphi

procedure TForm1.Button4Click(Sender: TObject);
var
k, n: TDateTime;
begin
n:=StrToDateTime(Edit2.Text);
k:=StrToDateTime(Edit3.Text);
ShowMessage('Целых дней = '+
IntToStr(DaysBetween(k, n))+' дней');
end;

Добавлено через 20 часов 8 минут
Есть вопрос как понять какая дата из какой вычитается? если ввожу в Edit2 24.11.2016, а в Edit3 22.10.2016 то выдает два дня, а если Edit2 20.11.2016, а в Edit3 22.10.2016 то так же выдает 2 дня, как сделать так что бы функция вычитала одно из другого, что бы получалось 20 а если первая дата меньше второй выдавало значение -2дня или писало просто 0

@qwertehok · 22.11.2016, 21:47

а вы описание к функции совсем не читаете?
function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;
Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях.

тут даже с примером
http://www.delphibasics.ru/DaysBetween.php

А еще там написано что время не может быть 00:00:00
а я почему то уверен что у вас в эдитах только дата и делая StrToDateTime() вы получаете как раз нули

@matrixkot · 22.11.2016, 21:59 **[ТС]**

в даном коде что вы представили измерение идет по часам, а у меня указывается только дата

@qwertehok · 22.11.2016, 22:01

ну так добавьте по 1 минуте

@matrixkot · 22.11.2016, 22:01 **[ТС]**

и у них та же проблема что и у меня если одна дата больше или меньше второй значения -2 дня или 0 нет всегда пишет только положительный результат

@qwertehok · 23.11.2016, 09:14

не верю
все всегда пользовались, а у вас не получается

тут либо руки, либо руки
показывайте код

@Teodor7 · 23.11.2016, 09:59

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
D1,D2:Extended;
begin
D1:=StrToDateTime(Edit2.Text);
D2:=StrToDateTime(Edit3.Text);
Edit1.Text:=IntToStr(Round(D1-D2));
end;

Работает, как АК-47 во всех версиях Delphi и со всеми руками. Видимо у ТС и экспертов разные версии IDE.

DateTime - это по представлению вещественная величина.
Целая часть - количество дней от 12/30/1899
Дробная соответственно 1/24 для часов и далее /60 и /60

@matrixkot · 23.11.2016, 12:26 **[ТС]**

Teodor7 спасибо за помощь IntToStr(Round(D1-D2)) я использовал IntToStr(DaysBetween(k, n) из-за этого и нек получалось что нужно

@matrixkot 4 / 4 / 1 Регистрация: 06.03.2013 Сообщений: 187
		1
	Вычисление количества дней между датами 21.11.2016, 23:58. Показов 4215. Ответов 9 Метки нет (Все метки) Добрый день суть проблемы такова, есть 3 поля едит в первом окне стоит реальная дата например 21.11.2016 во втором поле другая дата например 20.12.2016, в третьем поле должна стоять разница дней между данными датами, вот как это вычисление дней сделать? 0

@wendstor 139 / 137 / 66 Регистрация: 15.05.2012 Сообщений: 515
	22.11.2016, 00:35	2
	DaysBetween 0

@qwertehok 5567 / 4418 / 1079 Регистрация: 29.08.2013 Сообщений: 27,651 Записей в блоге: 3
	22.11.2016, 21:47	4
	а вы описание к функции совсем не читаете? function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer; Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях. тут даже с примером http://www.delphibasics.ru/DaysBetween.php А еще там написано что время не может быть 00:00:00 а я почему то уверен что у вас в эдитах только дата и делая StrToDateTime() вы получаете как раз нули 0

@matrixkot 4 / 4 / 1 Регистрация: 06.03.2013 Сообщений: 187
	22.11.2016, 21:59 [ТС]	5
	в даном коде что вы представили измерение идет по часам, а у меня указывается только дата 0

@qwertehok 5567 / 4418 / 1079 Регистрация: 29.08.2013 Сообщений: 27,651 Записей в блоге: 3
	22.11.2016, 22:01	6
	ну так добавьте по 1 минуте 0

@matrixkot 4 / 4 / 1 Регистрация: 06.03.2013 Сообщений: 187
	22.11.2016, 22:01 [ТС]	7
	и у них та же проблема что и у меня если одна дата больше или меньше второй значения -2 дня или 0 нет всегда пишет только положительный результат 0

@qwertehok 5567 / 4418 / 1079 Регистрация: 29.08.2013 Сообщений: 27,651 Записей в блоге: 3
	23.11.2016, 09:14	8
	не верю все всегда пользовались, а у вас не получается тут либо руки, либо руки показывайте код 0

@matrixkot 4 / 4 / 1 Регистрация: 06.03.2013 Сообщений: 187
	23.11.2016, 12:26 [ТС]	10
	Teodor7 спасибо за помощь IntToStr(Round(D1-D2)) я использовал IntToStr(DaysBetween(k, n) из-за этого и нек получалось что нужно 0

Вычисление количества дней между датами

Решение