Количество дней между двумя датами (Page 1 of 2)

Пример на DateTimePicker.

procedure Form1_Button1_OnClick (Sender: string; Action: string);
var
    YY,MM,DD,YY2,MM2,DD2: integer;

begin
    DecodeDate(Form1.DateTimePicker1.Date, YY, MM, DD);
    DecodeDate(Form1.DateTimePicker2.Date, YY2, MM2, DD2);

    Form1.Label1.Caption := IntToStr(DD2-DD);
end;

Hello sign2

You could try this ::

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var    dt: TDateTime;
begin
     dt := Form1.DateTimePicker2.DateTime - Form1.DateTimePicker1.DateTime;
     ShowMessage(IntToStr(Trunc(dt)) + ' days');
end;

JB

Привет, Sign2
Возможно, это также так
Derek.

Спасибо всем!

Hello Mcsimm

I did the test with my code (this day at 10H13, French time).
From 11/10/2017 to 11/10/2017 = 0 day

If in the system date windows, I advance one day (12/1082017 10:13)
the result is 1 day.

Does the calculation of dates take into account the day of the second date completed in the Windows timetable?
(No = 0 day - Yes = 1 day).

Seeking Dmitry's Opinion

To be debated !

Regards

JB

Добрый день
Ваш скрипт работает, алгоритм под себя переделал, почему-то у меня не работает

procedure Calculator_DateTimePicker1_OnChange (Sender: string);
begin
  Calculator.Edit7.Value:= Calculator.DateTimePicker2.DateTime - Calculator.DateTimePicker1.DateTime +1;
end;

procedure Calculator_DateTimePicker2_OnChange (Sender: string);
begin
  Calculator.Edit7.Value:= Calculator.DateTimePicker2.DateTime - Calculator.DateTimePicker1.DateTime +1;
end;

begin
end.

Дата сохраняется как число дней ...

http://myvisualdatabase.com/help_ru/scr … etime.html

А как быть если год високосный ) ?

В MVD еще есть функция для работы с месяцами.

а можно все таки на живом примере?

в таблице в последней колонке у меня должна отображаться дата окончания срока действия (от выставленной даты  + 24 месяца).
Например, сегодня 13.08.2023,  а в  таблице должна стоять в последней колонке дата 13.08.2025

прикладываю мою поделку (для понимания)

а куда мне это вписывать? и все ли верно в остальном?

это скрипт?   или вычисляемое поле?

спасибо за помощь

Привет Pixelpro,
Я считаю, что «strftime» по умолчанию выводит текст, который затем неправильно сортирует столбец даты истечения срока действия.
Если для вас важна последовательность сортировки даты истечения срока действия, я бы с уважением предложил переопределить вычисляемое поле как «дата» и преобразовать вычисляемое поле «strftime» обратно из «текста» после того, как необходимое количество лет было добавлено.

спасибо огромное.  по вашему примеру все сделал.   и все работает!
сразу видно - человек знает  (а я тупой) (((

и последний вопрос  -    а как этот конечный результат преобразовать в дни?
т.е. к примеру к 13.08.2023 прибавить 2 года (а именно 730 дней)  - будет 13.08.2025 года   ( если можно учесть и високосные года)
но
-   к примеру от завтрашнего числа - останется уже 729 дней.

я вот именно про это спросить хочу
как это реализовать?

у меня уже руки опускаются.
стоило поменять название колонки на свое  (и соответственно сменил названия в скрипте) - и стала ошибка вылазить.
я уже ничего не понимаю.   почему?!!!!

пожалуйста, разъясните мне, тупорылому, что во мне не так...

прикладываю измененный мною проект