Цитата:
|
Сообщение от adidas
Не буду создавать еще одну тему, в этой задам свой вопрос. Задали написать программу, которая будет отсчитывать время до часа Х. Допустим, до Нового Года. Желательно, чтобы отображалось в программе сколько осталось дней, часов и минут. Заранее благодарен.
|
что то вроде этого но в днях, а вот чтобы часы и минуты там надо исползовать полный формат даты
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
NewYear: TDateTime;
begin
newYear := StrToDate('01.01.2009');
label1.Caption := DateToStr(NewYear - Now);
end; |