【Delphi】 计算进程运行时间长度

{
关键字=【Delphi】 计算进程运行时间长度
编程工具=Delphi 7
采集软件=MKM - 我的知识管理
采集日期=2023-12-02 13:21:38
数字签名=D5D57A781DFDA069108C608E5B76FABB
}

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls,
DateUtils;/

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
DateUtils;//DateUtils

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function SubTimeToSec(const DS,DE:TDateTime):integer;
const
SCALE=246060;
begin
{计算进程运行时间长度}
Result :=Round((DE-DS)*SCALE);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
dt1: tdatetime;
dt2: tdatetime;
i:integer;
begin
dt1 := strtotime(Edit1.Text);
dt2 := strtotime(‘00:00:00’);
i:=SecondsBetween(dt1,dt2);
caption:=inttostr(i);
end;

end.