Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

31st
Окт

Отсчёт времени до даты

Posted by micher under Delphi, Архив

Как подсчитать количество дней до какого-то события?

DeKot



var

  Form1: TForm1;

  DayStart: TDateTime;

  S_Hour,S_Min,S_Sec: string;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);

begin

  DayStart:= 40360.0; //  01.07.2010 г.

end;
procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Edit1.Text:= TimeToStr(Now); // текущее время  [час : мин : сек]

  Edit1.SelStart:= 0;

  Edit1.SelLength:= 2;

  S_Hour:= Edit1.SelText; //  выделяем  часы в  виде string из Edit1.Text

  Edit1.SelStart:= 3;

  Edit1.SelLength:= 2;

  S_Min:= Edit1.SelText; //  выделяем  мин. в  виде string из Edit1.Text

  Edit1.SelStart:= 6;

  Edit1.SelLength:= 2;

  S_Sec:= Edit1.SelText; //  выделяем  сек. в  виде string из Edit1.Text
  Label1.Caption:= 'До начала   FIFA 2010  осталось :';

  Label2.Caption:= FloatToStr(DayStart - Date) + '   дней';

  Label3.Caption:= IntToStr(23 - StrToInt(S_Hour)) + '    часов';

  Label4.Caption:= IntToStr(59 - StrToInt(S_Min)) + '    минут';

  Label5.Caption:= IntToStr(59 - StrToInt(S_Sec)) + '    секунд';

end;
end.