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

[igrok111]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := DateTimeToStr(Now);
end;

Потом текст из едита записуеться в тектовый файл. При следующем запуске проги - в едит береться новое время и дата, и каким-то образом дожно сравниться со старым в текстовом файле.
Можно ли допустим время сразу перевести в минуты, а потом новый показатель отнять от предыдущего.
Вот как можно перевести 18.07.2012 23:25:27 - в минуты?
Или есть другой способ?

[Lesha]

unixtimestamp

[Пепел Феникса]

TDateTime поддается вычитанию.
+ есть функции типа MinutesBetween

[igrok111]

Я сделал так для примера. При нажатии button1 в edit1 записываеться дата и время в даную секунду. Потом через несколько секунд я нажимаю button2 и в edit2 записываеться еще одна(новая дата) в эту же секунду. Получаються 2 даты в двух эдитах. Теперь при нажатии button3 нужно отнять edit2 минус edit1 - результат получить в днях или минутах - и вывести в edit3.

var
Form1: TForm1;
S: extended;
d1, d2: TDatetime;

procedure TForm1.Button1Click(Sender: TObject);
begin
d1 := Now;
edit1.Text:=datetimetostr(d1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
d2 := Now;
edit2.Text:=datetimetostr(d2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
S:= d2-d1;
EDIT3.Text:=dateToStr(S);
end;

В итоге результат:
30.12.1899

Что не так?


Если

S:= trunc(d2) - trunc(d1); 
EDIT3.Text:=dateToStr(S);

Результат тот же

[Utkin]

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

Невозможно определить без синхронизации с внешними счетчиками времени (например, специальным сервером).

[Shouldercannon]

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))); // Миллисекунд
end;

Не?

[igrok111]

Сообщение от Shouldercannon

Не?

Очень даже ДА! Спасибо
А не подскажите, миллисекунды - это 1000 млс = 1 секунда примерно - да?

[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.

[igrok111]

Спасибо.
А такая прога покажет допустим результат, если прошол месяц - то так и выбьет прошло допустим 35 дней 5 часов и так далие? Или есть лимит?

[Shouldercannon]

Сообщение от igrok111

Спасибо.
А такая прога покажет допустим результат, если прошол месяц - то так и выбьет прошло допустим 35 дней 5 часов и так далие? Или есть лимит?

Хоть 1000 дней при непрырывой работе Windows, но у способа есть минус. GetTickCount - это количество времени прошедшего после запуска Windows. Тогда действительно лучше цепляться за дату (01.01.2012 00:00:00).