Подскажите пожалуйста, у меня есть время в миллисекундах и я хочу вывести его в формате «количество дней:часы:минуты:секунды» Вот например имеется 140516988 миллисекунд и должно получится 01:15:01:56, но не получается и выходит 31:15:01:56. Делаю так FormatDateTime (‘dd:hh:nn:ss’, 140516988 / (1000 * 24 * 60 * 60)); Что не так делаю? (читать всё…)

есть таблица с колонками Время_нач и Время_кон. Если текущее время меньше начального и больше конечного то закрасить строку. (читать всё…)

Всем привет. Народ у меня такой впрос как из одной даты вечесть другую?
$time1 = ’2011-05-05 13:00:00′;
$time2 = ’2011-05-05 18:15:30′;

Как сделать?
$time=time2-time1;
И в результате получить 315:30 (минут : секунд) (читать всё…)

Помогите создать процедурку, которая по дню недели создаст список дат. Например, у меня есть 5 checkbox, соответствующие дням неделям, потом определяем промежуток на который нам надо определить даты (пример-10, программно задается). и начиная с текущей даты надо вывести даты соответствующее дням неделям по checkbox. (читать всё…)

(читать всё…)

Код:

uses DateUtils;

...................

var

t: TTime;

dt: TDateTime;

begin

t := StrToTime(Edit1.Text);

dt := DateTimePicker1.Date + t;

ShowMessage(FloatToStr(HoursBetween(Today,dt)));

end;

Тема на форуме.

Часто у новичков бывают проблемы при работе с датой. По просьбе одного из участников форума, Alex2009 любезно согласился помочь по некоторым типичным задачам.

Используя объектно – ориентированную среду Делфи напишите программу определения:

А) даты вчерашнего дня;

const
stDay : array[1..7] of string[11] =
('Воскресенье','Понедельник','Вторник','Среда','Четверг','Пятница','Суббота');
stMonth : array[1..12] of string[8] =
('Января','Февраля','Марта','Апреля ','Мая','Июня','Июля',
'Августа','Сентября','Октября','Ноя бря','Декабря');

procedure TForm1.FormCreate(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:=Now;
DecodeDate(Present, Year, Month, Day);
Caption := 'Сегодня '+IntToStr(Day)+ ' ' +
stMonth[Month] +' '+IntToStr(Year)+' года, '+
stDay[DayOfWeek(Present)];
end;

Б) дату, которая была за m дней до указанной даты;

const
stDay : array[1..7] of string[11] =
('Воскресенье','Понедельник','Вторник','Среда','Четверг','Пятница','Суббота');
stMonth : array[1..12] of string[8] =
('Января','Февраля','Марта','Апреля ','Мая','Июня','Июля',
'Августа','Сентября','Октября','Ноя бря','Декабря');

procedure TForm1.FormCreate(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:=Now;
Present:=Present-1;
Day:=Day-day;
DecodeDate(Present, Year, Month, Day);
Caption := 'Вчера '+IntToStr(Day)+ ' ' +
stMonth[Month] +' '+IntToStr(Year)+' года, '+
stDay[DayOfWeek(Present)];
end;

В) количество дней, прошедших от даты t до t 2

uses DateUtils;
........
procedure TForm1.Button1Click(Sender: TObject);
var d,d2:TDate;
begin
 showmessage('Вчерашняя дата '+formatdatetime('dd mmmm yyyyг.',yesterday));
 d:=Now;
 d:=incDay(d,-10);
 showmessage('Дата которая была 10 дней назад '+formatdatetime('dd mmm yyyyг.',d));
 d:=StrToDate('12.03.2010');
 d2:=StrToDate('25.04.2010');
 showmessage('Кол-во дней между датами составляет '+inttostr(DaysBetween(d2,d))+' дней');
end;

Посмотреть тему на форуме.

Перейти к теме на форуме