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

Разница дат

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

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста! Как в 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2011, 00:41
Ответы с готовыми решениями:

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

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

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

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

4
912 / 672 / 134
Регистрация: 01.03.2010
Сообщений: 1,273
05.05.2011, 09:12 2
Inka_BlondINKA,
смотри функцию DaySpan - возвращает разницу дат, включая время
0
28 / 28 / 4
Регистрация: 28.04.2011
Сообщений: 79
05.05.2011, 10:20 3
Привет!

Используй модуль 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  [ТС] 4
Мерси боку!=)) Очень помогли. У меня еще пара вопросов есть если Вас не затруднит:
1. Как сделать защиту в MaskEdit. Чтобы вводило только нормально время, а не 92.44 к примеру. В настройках порылась, не не разобралась
2. В Label формат времени сменить так, чтобы только часы и минуты были без секунд
3. И на по следок=)) Сортировка. Необходимо сортировать "Завершен" и "Не завершен". Если выбрать 1ое то он сортирует, а если 2ое то выдает ошибку т.к запись содержит в себе 1ое условие. Как отсортировать?
Еще раз заранее благодарна!
0
хацкер
172 / 157 / 34
Регистрация: 19.01.2011
Сообщений: 425
08.05.2011, 23:03 5
1. Пункт EditMask - ShortTime
2.Label1.Caption:=FormatDateTime('hh:mm',now);
0
08.05.2011, 23:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2011, 23:03
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru