Как написать программу для вычисления количества дней между двумя датами?

@Aki_Deko · Регистрация: 02.12.2019

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

Как написать программу для вычисления количества дней между двумя датами? Так что бы было допустим 20.01.2020 и 04.04.2023. Что бы сначала к первой дате добавлялись дни до конца месяца, потом прибавлялось количество дней в годах, затем количество дней по месяцам, а потом количество дней прошедших в следующем месяце (Что-то вроде такого алгоритма только в днях(20.01.2020 + 12(число до следующего месяца) = 01. 02.2020; 01.02.2020 + 3 (число прошедших лет) = 01.02.2023; 01.02.2023 + 2(число прошедших месяцев) = 01.04.2023; 01.04.2023 + 3(дни до интересующего нас числа) = 04.04.2023))

Числа взяты рандомно, дата должна вводиться пользователем произвольно

@Sergio Leone · 20.01.2020, 22:45

темы внизу видны?
вот решение этой задачи - Сколько дней прошло между двумя датами?

@Sun Serega · 20.01.2020, 22:48

Pascal
1
2
3
4
5
6
7
function ReadDate := DateTime.ParseExact(ReadString, 'dd.MM.yyyy', nil);
 
begin
  var d1 := ReadDate;
  var d2 := ReadDate;
  (d2-d1).TotalDays.Println;
end.

Тут учитываются и кол-во дней каждого месяца, и високосные годы.

@Соколиный глаз · 21.01.2020, 10:42

Решение через ABCNET (не привязано к PascalABC.NET):

Pascal
1
2
3
4
5
6
7
8
9
10
{$reference ABCNET.dll}
uses ABCNET.Utils;
 
function ReadDate() := DateTime.ParseExact(Base.ReadString('date:'), 'dd.MM.yyyy', nil);
 
begin
  var d1 := ReadDate();
  var d2 := ReadDate();
  (d2 - d1).TotalDays.Println();
end.

@Puporev · 21.01.2020, 10:44

Сообщение от Соколиный глаз

Решение через ABCNET (не привязано к PascalABC.NET):

Вот кому это нахрен нужно?

@Соколиный глаз · 21.01.2020, 11:01

Puporev, тем, кто рассчитывает переходить на другие NET-языки с данного, но не хочет резко потерять возможность использовать функционал, к которому привыкли. С расчётом на это я и начинал данный проект. Если говорить о себе, то по-началу я был разочарован, что придя в C# не было того, к чему я привык здесь. Этот период для меня был нелёгок - нужно было перебороть себя и даже заставить себя усидеть на том языке. Это получилось. Но, я не хочу, чтобы такие страдания испытывали другие пользователи. Я хочу облегчить их переход между языками, но с тем же, подтолкнуть их изучать платформу NET, на которой PascalABC.NET основан.

Для меня данная библиотека - простая вещь, которая переносима и позволяет выполнять "выкрутасы" (если можно так назвать) в стиле PascalABC.NET на других языках, но не позволяет сильно заигрываться в игрушки, подталкивая тем самым к изучению самого NET.

@JuriiMW · 21.01.2020, 11:10

Сообщение от Соколиный глаз

подталкивая тем самым к изучению самого NET

Вы думаете, что 99 процентов поднимающих темы это нужно?
Нет! Если они даже перейдут по вашей ссылке, то уйдут с неё не проскроляв даже до половины…
Уже не говоря о том, что ни кто не будет читать то, что там написано.

А ещё они даже не понимают почему ваша программа не работает „как есть“…
Значит: в помойку такой код!

@Соколиный глаз · 21.01.2020, 11:53

JuriiMW, я не говорил ничего про то какому количеству людей данное нужно. И тем более не считаю, что целым 99% людей это будет нужно. Но, такие решения имеют право на жизнь. Пользователь - вот кто будет выбирать между двумя подходами.

На счёт в помойку ли - решения с использованием PABCSystem, хоть и работают как есть (в чём их достоинство), в то же время жёстко прибиты к компилятору... И более того, в других диалектах Паскаля не сработают. Если что-то жёстко привязано к языку/OC - это не очень хорошо, потому что может что-то с данным языком или OC случиться и тогда всё - поддержка данного что-то кончена. Другое дело - универсальное средство - если оно перестанет поддерживаться одним языков или OC - останется на других.

@JuriiMW · 21.01.2020, 12:16

Соколиный глаз, ну и не нужно лезть со своим…
Вон уже Sun Serega перестал предлагать свою помощь тому, кому не понятно:
Тупо вставил код + небольшой коммент и в „продакшн“!

@Соколиный глаз · 21.01.2020, 12:22

JuriiMW, возможно, я слишком активно пытаюсь продвигать свой продукт. Согласен. Но, если не я, то кто за меня это сделает? За своё надо бороться, хотя бы здесь Вы со мной согласитесь?

Sun Serega - предлагает решения в стиле PascalABC.NET, но тем самым, привязывает их к данному языку, шаг влево, шаг вправо - никак. Возможно, новичков эта проблема и не волнует... Но, проблема не исчезает, от того, что о ней забывают. Новички перестают быть новичками и идут дальше (я говорю о тех, кто так делает, а не о всех), выйти безболезненно теперь они не могут с данного языка - там нет всех тех плюшек PABCSystem, которые стали им чем-то обыденным. Не лучше ли сразу использовать ABCNET, чтобы потом не испытывать страданий?..

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Aki_Deko 0 / 0 / 0 Регистрация: 02.12.2019 Сообщений: 24

	Как написать программу для вычисления количества дней между двумя датами? 20.01.2020, 22:16. Показов 2024. Ответов 9 Метки нет (Все метки) Как написать программу для вычисления количества дней между двумя датами? Так что бы было допустим 20.01.2020 и 04.04.2023. Что бы сначала к первой дате добавлялись дни до конца месяца, потом прибавлялось количество дней в годах, затем количество дней по месяцам, а потом количество дней прошедших в следующем месяце (Что-то вроде такого алгоритма только в днях(20.01.2020 + 12(число до следующего месяца) = 01. 02.2020; 01.02.2020 + 3 (число прошедших лет) = 01.02.2023; 01.02.2023 + 2(число прошедших месяцев) = 01.04.2023; 01.04.2023 + 3(дни до интересующего нас числа) = 04.04.2023)) Числа взяты рандомно, дата должна вводиться пользователем произвольно 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	20.01.2020, 22:45
	темы внизу видны? вот решение этой задачи - Сколько дней прошло между двумя датами? 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	21.01.2020, 11:01
	Puporev, тем, кто рассчитывает переходить на другие NET-языки с данного, но не хочет резко потерять возможность использовать функционал, к которому привыкли. С расчётом на это я и начинал данный проект. Если говорить о себе, то по-началу я был разочарован, что придя в C# не было того, к чему я привык здесь. Этот период для меня был нелёгок - нужно было перебороть себя и даже заставить себя усидеть на том языке. Это получилось. Но, я не хочу, чтобы такие страдания испытывали другие пользователи. Я хочу облегчить их переход между языками, но с тем же, подтолкнуть их изучать платформу NET, на которой PascalABC.NET основан. Для меня данная библиотека - простая вещь, которая переносима и позволяет выполнять "выкрутасы" (если можно так назвать) в стиле PascalABC.NET на других языках, но не позволяет сильно заигрываться в игрушки, подталкивая тем самым к изучению самого NET. 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	21.01.2020, 11:53
	JuriiMW, я не говорил ничего про то какому количеству людей данное нужно. И тем более не считаю, что целым 99% людей это будет нужно. Но, такие решения имеют право на жизнь. Пользователь - вот кто будет выбирать между двумя подходами. На счёт в помойку ли - решения с использованием PABCSystem, хоть и работают как есть (в чём их достоинство), в то же время жёстко прибиты к компилятору... И более того, в других диалектах Паскаля не сработают. Если что-то жёстко привязано к языку/OC - это не очень хорошо, потому что может что-то с данным языком или OC случиться и тогда всё - поддержка данного что-то кончена. Другое дело - универсальное средство - если оно перестанет поддерживаться одним языков или OC - останется на других. 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	21.01.2020, 12:16
	Соколиный глаз, ну и не нужно лезть со своим… Вон уже Sun Serega перестал предлагать свою помощь тому, кому не понятно: Тупо вставил код + небольшой коммент и в „продакшн“! 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	21.01.2020, 12:22
	JuriiMW, возможно, я слишком активно пытаюсь продвигать свой продукт. Согласен. Но, если не я, то кто за меня это сделает? За своё надо бороться, хотя бы здесь Вы со мной согласитесь? Sun Serega - предлагает решения в стиле PascalABC.NET, но тем самым, привязывает их к данному языку, шаг влево, шаг вправо - никак. Возможно, новичков эта проблема и не волнует... Но, проблема не исчезает, от того, что о ней забывают. Новички перестают быть новичками и идут дальше (я говорю о тех, кто так делает, а не о всех), выйти безболезненно теперь они не могут с данного языка - там нет всех тех плюшек PABCSystem, которые стали им чем-то обыденным. Не лучше ли сразу использовать ABCNET, чтобы потом не испытывать страданий?.. 0