Задачка на даты

@TheDISH3R · Регистрация: 24.05.2023

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

Необходимо найти дату, отстоящую от заданной на заданное количество дней в заданном направлении. Интерфейс я уже построил, а как это реализовать в коде - ума не приложу.

@Beltar · 01.07.2023, 23:11

Есть готовые функции для увеличения даты, хотя для даты можно просто число дней прибавлять.

@Massaraksh7 · 01.07.2023, 23:12

Если дата в формате TDateTime, то просто прибавить/вычесть к дате/от даты число дней.

@TheDISH3R · 01.07.2023, 23:20 **[ТС]**

Сообщение от Beltar

Есть готовые функции для увеличения даты, хотя для даты можно просто число дней прибавлять.

Нужно, чтобы пользователем задавалось направление времени - тридцать дней назад или вперёд, к примеру.

@AzAtom · 01.07.2023, 23:35

Сообщение от TheDISH3R

Нужно, чтобы пользователем задавалось направление времени - тридцать дней назад или вперёд, к примеру.

Ставишь радиокнопки или радиогруппу и в зависимости от выбора прибавляешь или отнимаешь.

@TheDISH3R · 01.07.2023, 23:39 **[ТС]**

Сообщение от AzAtom

Ставишь радиокнопки или радиогруппу и в зависимости от выбора прибавляешь или отнимаешь.

Вот я и пытаюсь понять, что и от чего нужно отнимать, чтобы программа работала корректно

@Massaraksh7 · 02.07.2023, 00:01

Сообщение от TheDISH3R

Вот я и пытаюсь понять,

А чего пытаться-то? Я же по-русски написал:

дата в формате TDateTime

@TheDISH3R · 02.07.2023, 00:17 **[ТС]**

Сообщение от Massaraksh7

А чего пытаться-то? Я же по-русски написал:

Не исчерпывающе, откровенно говоря. Пытаюсь сейчас отыскать кусок кода, который хоть чуть похож на то, что есть у меня.

@AzAtom · 02.07.2023, 00:22

Например, можно так. На форме 3 Edit, кнопка и RadioGroup с 2 значениями (Прибавить и Отнять):

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDateTime;
  i: integer;
begin
  if TryStrToDateTime(Edit1.Text, d) then
  begin
    i := StrToIntDef(Edit2.Text, 0);
    if RadioGroup1.ItemIndex = 0 then
      d := d + i // С днями можно так делать
    else
      d := d - i;
    Edit3.Text := DateToStr(d);
  end
  else
    Edit3.Text := 'Введите корректную дату в формате ДД.ММ.ГГ или ДД.ММ.ГГГГ';
end;

@TheDISH3R · 02.07.2023, 00:39 **[ТС]**

Cпасибо большое

@TheDISH3R 0 / 0 / 0 Регистрация: 24.05.2023 Сообщений: 6
	02.07.2023, 00:39 [ТС]	10
	Cпасибо большое 0

Новые блоги и статьи
Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .	Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .

@TheDISH3R 0 / 0 / 0 Регистрация: 24.05.2023 Сообщений: 6
		1
	Delphi 6-7 Задачка на даты 01.07.2023, 23:05. Показов 416. Ответов 9 Метки delphi 7 (Все метки) Необходимо найти дату, отстоящую от заданной на заданное количество дней в заданном направлении. Интерфейс я уже построил, а как это реализовать в коде - ума не приложу. 0

@Beltar 550 / 250 / 27 Регистрация: 05.05.2022 Сообщений: 1,626
	01.07.2023, 23:11	2
	Есть готовые функции для увеличения даты, хотя для даты можно просто число дней прибавлять. 0

@Massaraksh7 Айлурофил 477 / 410 / 110 Регистрация: 27.05.2017 Сообщений: 2,367 Записей в блоге: 3
	01.07.2023, 23:12	3
	Если дата в формате TDateTime, то просто прибавить/вычесть к дате/от даты число дней. 0

@TheDISH3R 0 / 0 / 0 Регистрация: 24.05.2023 Сообщений: 6
	01.07.2023, 23:20 [ТС]	4
	Сообщение от Beltar Есть готовые функции для увеличения даты, хотя для даты можно просто число дней прибавлять. Нужно, чтобы пользователем задавалось направление времени - тридцать дней назад или вперёд, к примеру. 0

@AzAtom Модератор 3758 / 2262 / 783 Регистрация: 15.11.2015 Сообщений: 9,000
	01.07.2023, 23:35	5
	Сообщение от TheDISH3R Нужно, чтобы пользователем задавалось направление времени - тридцать дней назад или вперёд, к примеру. Ставишь радиокнопки или радиогруппу и в зависимости от выбора прибавляешь или отнимаешь. 0

@TheDISH3R 0 / 0 / 0 Регистрация: 24.05.2023 Сообщений: 6
	01.07.2023, 23:39 [ТС]	6
	Сообщение от AzAtom Ставишь радиокнопки или радиогруппу и в зависимости от выбора прибавляешь или отнимаешь. Вот я и пытаюсь понять, что и от чего нужно отнимать, чтобы программа работала корректно 0

@Massaraksh7 Айлурофил 477 / 410 / 110 Регистрация: 27.05.2017 Сообщений: 2,367 Записей в блоге: 3
	02.07.2023, 00:01	7
	Сообщение от TheDISH3R Вот я и пытаюсь понять, А чего пытаться-то? Я же по-русски написал: дата в формате TDateTime 0

@TheDISH3R 0 / 0 / 0 Регистрация: 24.05.2023 Сообщений: 6
	02.07.2023, 00:17 [ТС]	8
	Сообщение от Massaraksh7 А чего пытаться-то? Я же по-русски написал: Не исчерпывающе, откровенно говоря. Пытаюсь сейчас отыскать кусок кода, который хоть чуть похож на то, что есть у меня. 0