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

made in programmersforum 7

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

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

3rd
Окт

Сколько времени прошло с момента предыдущего запуска программы?

Posted by Chas under Delphi

Есть прога, написаная на Делфи ХЕ. Нужно определить, сколько времени (можно в минутах) прошло с момента предыдущего запуска.

Shouldercannon
1000 мс = 1 с

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;
const

  SecPerDay = 86400;

  SecPerHour = 3600;

  SecPerMinute = 60;
type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button2: TButton;

    Button3: TButton;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
function SecondToTimeStr(const Seconds: Cardinal): string;

var

  d, h, m, s: Cardinal;

  Time: string;

begin

  d := Seconds div SecPerDay;

  h := (Seconds mod SecPerDay) div SecPerHour;

  m := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute;

  s := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute;
  Time := Format('%0:2.2d:%1:2.2d:%2:2.2d:%3:2.2d:', [d, h, m, s]);
  while Pos(':', Time) <> 0 do

  begin

    Result := Result + Copy(Time, 1, Pos(':', Time) - 1) + '%s';

    Delete(Time, 1, Pos(':', Time));

  end;

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

begin

  Edit1.Text := IntToStr(GetTickCount);

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

begin

  Edit2.Text := IntToStr(GetTickCount);

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

begin

  Edit3.Text := IntToStr((StrToInt(Edit2.Text) - StrToInt(Edit1.Text)) div 1000{Избавляемся от милисекунд}); // Миллисекунд

  Label1.Caption := Format(SecondToTimeStr(StrToInt(Edit3.Text)), [' дней ', ' часов ', ' минут ', ' секунд ']);

end;
end.