Как сделать прогу чтобы показывать сколько дней осталось до...

[Bigtyoma]

Люди помогите пожалуйста.Как сделать прогу чтобы показывать сколько дней осталось до Нового года или дня рожденья???

[Баламут]

Ну вот, навскидку...

var
  Day, Month, Year: Word;
  Dat: TDate;
begin
  Day := 31;
  Month := 12;
  Year := 2008;
  Dat :=  EncodeDate(Year, Month, Day);
  Edit1.Text := FloatToStr(Dat - Now);
end;

[puporev]

Последняя строчка неправильно, будет число типа Double.
Нужно:
Edit1.Text := FormatDateTime('dd дней ',(dat-now));

[Andrei]

Или так :

uses ..., DateUtils;

....

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption:=IntToStr(DaysBetween(Now,DateTimePicker1.DateTime));
end;

Функция DaysBetween из модуля DateUtils возвращает количество полных дней между двумя значениями TDateTime.

[Bigtyoma]

Чёто ничё не получается: по первому коду даёт 117,3001.... по второму даёт сколько дней до конца месяца осталось а в третьем коде даёт ошибку:

[Error] Unit1.pas(29): Undeclared identifier: 'DateTimePicker1'

[Ozerich]

самый нормальный это третий вариант.Ошибку выдает так как нету компонента DateTimePicker1.Откуда ты хочешь взять исходную дату?

[Bigtyoma]

а где взять этот компонент????

[Ozerich]

Компонент есть в делфи на вкладке Samples.Но не обязательно его использовать можно заенкодить дату с помощью EncodeDate.

[Bigtyoma]

У меня Delphi 7 Second Edition и там нету в Samples этого компонента

[Ozerich]

Ну может тогда используй Tcalendar.Ну можно ваще Edit использовать