Разница дат

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

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

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

Delphi

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

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);

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

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

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

Опции темы