Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Сен

Получить разницу между двумя датами без выходных

Posted by Chas under Delphi

У меня есть 2 DateTimePicker: Чтобы мне получить разницу между двумя датами я использую trunc, Как сделать, чтобы он выкидывал выходные?

Ann19
Программа заработала!
Но я немного не так делала, вот мой алгоритм:

procedure TForm1.Edit1Change(Sender: TObject);

var

Result: integer;

AllDays: integer;

i: integer;

begin

AllDays:= 
(trunc(DateTimePicker2.Date)-trunc(DateTimePicker1.Date))+1;

Result := AllDays;

for i := 0 to AllDays - 1 do

begin

if DayOfWeek(DateTimePicker1.Date + i) - 1 in [6, 0] then

Result := Result - 1;

end;

Edit1.Text:=IntToStr(Result);

end;