0 / 0 / 0
Регистрация: 05.05.2011
Сообщений: 3

Разница дат

05.05.2011, 00:41. Показов 23505. Ответов 4
Метки нет (Все метки)

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".
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.05.2011, 00:41
Ответы с готовыми решениями:

Разница между двух дат в месяцах
Есть две даты, например 30.11.2014 и 31.03.2015, разница между ними 4 месяца, как это программно посчитать, вот количество дней между...

Сравнение двух дат и вывод дат находящихся между ними
Здравствуйте! Тут такое дело, вводятся две определенные ДАТЫ в Edit1 и Edit2 в формате ДД.ММ.ГГГГ, нужно найти все ДАТЫ, которые...

Разница дат
Подскажите плиз у меня следующая проблема в операции с датой Не могу от даты константы отминусовать дату в поле. d1 = Format(Date,...

4
 Аватар для Евгений В
912 / 672 / 134
Регистрация: 01.03.2010
Сообщений: 1,279
05.05.2011, 09:12
Inka_BlondINKA,
смотри функцию DaySpan - возвращает разницу дат, включая время
0
28 / 28 / 4
Регистрация: 28.04.2011
Сообщений: 79
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;//Миллисекунд
0
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
08.05.2011, 23:03
Помогаю со студенческими работами здесь

Разница дат
Добрый вечер! Пишу программу которая считает разницу дат в формате дд.мм.гггг приведенный ниже код: String den,mes,god; ...

Разница дат
Получаю разницу дат так: import java.util.GregorianCalendar; class datediff{ public static void main(String args) { ...

Разница 2-х дат (time)
Приветы всем, пытаюс перейти с делфи на vb net :) На форме есть элемент DateTimePicker1, label1 и label2 DateTimePicker1.Text =...

Разница дат в днях
Форум всем доброй ночи или дня (в зависимости от региона) Подскажите пожалуйста, как разницу двух дат в днях вывести, НО... Чтобы...

Разница дат в днях
Подскажите что делать и в каком направлении идти. даты у меня в формате date("Y-m-d"). пробовал вот так: $date_p_hot =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
Логирование в 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 прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru