Разница дат

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

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

Помогите пожалуйста! Как в 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);

Новые блоги и статьи Все статьи Все блоги /
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-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Евгений В 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