Разница дат

@Inka_BlondINKA · Регистрация: 05.05.2011

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

Помогите пожалуйста! Как в Delphi 7 посчитать время от даты к дате, чтобы учитывалась не только дата, но и часы (желательно еще и минуты=)). Сколько дней от 5 мая до 9 мая ясно. А если бы было 5 мая 13.00 до 9 мая 21.30. Тут пример простой, но все же, как это сделать? Вот так вот я считала от дня ко дню. Может его можно как-то доработать?

Delphi
1
2
3
4
5
6
var 
  S: extended;
begin
  S:= DateTimePicker2.Date-DateTimePicker1.Date;
  Edit1.Text:=FloatToStr(S);
end;

Заранее спасибо.

Комментарий модератора

Теги кода добавлены модератором. По правилам форума для оформления кода следует применять соответствующие теги. Например, для оформления кода Delphi, следует выделить этот код и на панели редактирования сообщения нажать кнопку "DELPHI".

@Евгений В · 05.05.2011, 09:12

Inka_BlondINKA,
смотри функцию DaySpan - возвращает разницу дат, включая время

@d0lmat · 05.05.2011, 10:20

Привет!

Используй модуль DateUtils.

Вот, показывает разницу между двумя датами:

Delphi
1
2
3
4
5
6
7
8
function YearsBetween(const ANow, AThen: TDateTime): Integer; //Лет
function MonthsBetween(const ANow, AThen: TDateTime): Integer; //Месяцев
function WeeksBetween(const ANow, AThen: TDateTime): Integer; //Недель
function DaysBetween(const ANow, AThen: TDateTime): Integer; //Дней
function HoursBetween(const ANow, AThen: TDateTime): Int64; //Часов
function MinutesBetween(const ANow, AThen: TDateTime): Int64; //Минут
function SecondsBetween(const ANow, AThen: TDateTime): Int64; //Секунд
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;//Миллисекунд

@Inka_BlondINKA · 08.05.2011, 22:39 **[ТС]**

Мерси боку!=)) Очень помогли. У меня еще пара вопросов есть если Вас не затруднит:
1. Как сделать защиту в MaskEdit. Чтобы вводило только нормально время, а не 92.44 к примеру. В настройках порылась, не не разобралась
2. В Label формат времени сменить так, чтобы только часы и минуты были без секунд
3. И на по следок=)) Сортировка. Необходимо сортировать "Завершен" и "Не завершен". Если выбрать 1ое то он сортирует, а если 2ое то выдает ошибку т.к запись содержит в себе 1ое условие. Как отсортировать?
Еще раз заранее благодарна!

@maxo · 08.05.2011, 23:03

1. Пункт EditMask - ShortTime
2.Label1.Caption:=FormatDateTime('hh:mm' ,now);

Новые блоги и статьи Все статьи Все блоги /
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Полностью асинхронный счётчик на логике (сумматорах) трёх состояний и асинхронных регистрах трёх состояний. Структура "электронный Buttom Up" Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .	Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .

@Евгений В 912 / 672 / 134 Регистрация: 01.03.2010 Сообщений: 1,279
	05.05.2011, 09:12
	Inka_BlondINKA, смотри функцию DaySpan - возвращает разницу дат, включая время 0

@Inka_BlondINKA 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 3
	08.05.2011, 22:39 [ТС]
	Мерси боку!=)) Очень помогли. У меня еще пара вопросов есть если Вас не затруднит: 1. Как сделать защиту в MaskEdit. Чтобы вводило только нормально время, а не 92.44 к примеру. В настройках порылась, не не разобралась 2. В Label формат времени сменить так, чтобы только часы и минуты были без секунд 3. И на по следок=)) Сортировка. Необходимо сортировать "Завершен" и "Не завершен". Если выбрать 1ое то он сортирует, а если 2ое то выдает ошибку т.к запись содержит в себе 1ое условие. Как отсортировать? Еще раз заранее благодарна! 0

@maxo хацкер 172 / 157 / 34 Регистрация: 19.01.2011 Сообщений: 425
	08.05.2011, 23:03
	1. Пункт EditMask - ShortTime 2.Label1.Caption:=FormatDateTime('hh:mm' ,now); 0

Опции темы