Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] задачка с датами

Автор: neprogrammist 7.6.2010, 13:53

нужно создать прогу котрая может определять

1) даты вчерашнего дня;
2) дату, которая была за m дней до указанной даты;
3) количество дней, прошедших от даты t до t.

вобщем то она почти готова, только я незнаю как сделать чтобы можно было вводить в едит дату и по нажатию на определённую кнопку результат высвечивался в другой кнопе
помогите пожалуйста доделать smile

Автор: chip_and_dayl 7.6.2010, 15:09

Само сложное сделано, а такой пустяк никак !?! smile

Автор: neprogrammist 8.6.2010, 07:52

да я только начинающий, я путаюсь постоянно и поэтому прощу помочь, тем более для вас это пустяк smile

Автор: Akella 8.6.2010, 10:20

Цитата(neprogrammist @ 7.6.2010, 13:53

)

нужно создать прогу котрая может определять

1) даты вчерашнего дня;
2) дату, которая была за m дней до указанной даты;
3) количество дней, прошедших от даты t до t.

$50

Автор: bems 8.6.2010, 10:40

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: former 8.6.2010, 10:55

Держи, лентяй:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DateToStr(Yesterday));
end;

procedure TForm1.Button2Click(Sender: TObject);
var m:integer;
    d:TDate;
begin
  m:=5;
  d:=StrToDate('15.06.2010');
  ShowMessage(DateToStr(IncDay(d,-m)));
end;

procedure TForm1.Button3Click(Sender: TObject);
var d1,d2:TDate;
begin
  d1:=StrToDate('10.06.2010');
  d2:=StrToDate('15.06.2010');
  ShowMessage(IntToStr(DaysBetween(d2,d1)));
end;

Добавлено через 1 минуту и 6 секунд
Только DateUtils не забудь.

Автор: Akella 8.6.2010, 13:26

Цитата(former @ 8.6.2010, 10:55

)

Только DateUtils не забудь.

Ты бы ему сразу и сказал, что именно не забыть и куда именно не забыть smile

Автор: former 8.6.2010, 14:19

Цитата(Akella @ 8.6.2010, 13:26

)

Ты бы ему сразу и сказал, что именно не забыть и куда именно не забыть

Думаю, что ему это уже не важно.
Ради смеха набрал его вопрос в поисковике и наткнулся на другой форум, где ему уже ответили, но ответили неправильно. smile

Автор: neprogrammist 8.6.2010, 19:47

Цитата(former @ 8.6.2010, 14:19)

Цитата(Akella @ 8.6.2010, 13:26

)

Ты бы ему сразу и сказал, что именно не забыть и куда именно не забыть

какой форум? что неправильно ? smile

Автор: former 9.6.2010, 08:32

Цитата(neprogrammist @ 8.6.2010, 19:47

)

какой форум?

http://www.cyberforum.ru/delphi-beginners/thread127899.html

Цитата(neprogrammist @ 8.6.2010, 19:47

)

что неправильно ?

neprogrammist, техподдержка платная. smile

Автор: neprogrammist 10.6.2010, 14:56

Цитата(former @ 9.6.2010, 08:32)

Цитата(neprogrammist @ 8.6.2010, 19:47

)

какой форум?

http://www.cyberforum.ru/delphi-beginners/thread127899.html

Цитата(neprogrammist @ 8.6.2010, 19:47

)

что неправильно ?

neprogrammist, техподдержка платная. smile

и че же там неправильно?? код работает программа выполняется smile