[Snik11]

Здравствуйте. Столкнулся с такой проблемой. имеется код на JS, который отсчитывает миллисекунды с 1 января 1970 года и до момента нажатия на кнопку. Хотелось бы узнать, как такой же код написать на Delphi...

var time=new Date().getTime() ; // код на JS


P.S. бьюсь уже 4й день, никак не могу понять...
если можно, то с комментариями к коду...

[angvelem]

Можно в таймере использовать Time.

[lmikle]

Ну, если тупо, то примерно так:

Код:

uses DateUtils;

var
  ms : Int64;
begin
  ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));

Дает с точностью до милисекунды

[Snik11]

Спасибо, сейчас попробую!!!

[Snik11]

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

Можно в таймере использовать Time.

а можно поточнее? просто я в делфи новичек, хотелось бы разобраться...

[angvelem]

Примерно тоже, что предложил lmikle, только ещё на секунды разобрать нужно.

Код:

var
  Ms : Int64;

procedure Timer1Timer(Sender: TObject);
begin
  Ms := MilliSecondsBetween(Now, EncodeDateTime(1970,1,1,0,0,0,0));
end;

этот вариант lmikle, для начинающих проще.

[Snik11]

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

Ну, если тупо, то примерно так:

Код:

uses DateUtils;

var
  ms : Int64;
begin
  ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));

Дает с точностью до милисекунды

выдает ошибку
[Error] Unit1.pas(30): Not enough actual parameters


ругается на ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));

[Snik11]

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

Примерно тоже, что предложил lmikle, только ещё на секунды разобрать нужно.

Код:

var
  Ms : Int64;

procedure Timer1Timer(Sender: TObject);
begin
  Ms := MilliSecondsBetween(Now - EncodeDateTime(1970,1,1,0,0,0,0));
end;

этот вариант lmikle, для начинающих проще.

также выдает ошибку [Error] Unit1.pas(35): Not enough actual parameters

ругается на Ms := MilliSecondsBetween(Now - EncodeDateTime(1970,1,1,0,0,0,0));

[angvelem]

У меня другое написано.
Ты неправильно вопрос поставил, объясни что хочешь получить.

[Snik11]

мне нужно целое число миллисекунд получить) от 1 января 1970 года до данного момента (ну например на buton1Click кидаешь эту процедуру, и как нажимаешь кнопку, в переменную вводится это число миллисекунд)) например если использовать JS, то получится на данный момент 1333572327068.

[angvelem]

Читаем справку:

Returns the number of milliseconds between two specified TDateTime values.

что в вольном переводе:

Возвращает количество миллисекунд между двумя определёнными датами.

[Snik11]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  ms : Int64;
begin
  ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));
memo1.Text:=inttostr(ms);
end;
end.

ошибка выходит на ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));


Может кто-нибудь подсказать, что я делаю не так?

[angvelem]

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

...Может кто-нибудь подсказать, что я делаю не так?

Конечно, смотреть нужно внимательно, у меня написано:

Код:

Ms := MilliSecondsBetween(Now, EncodeDateTime(1970,1,1,0,0,0,0));

и это здесь.

[lmikle]

Вот так надо:

Код:

uses DateUtils;
...
ms := MilliSecondsBetween(Now(),EncodeDateTime(1970,01,10,0,0,0,0));

Сорри, сначала хотел руками посчитать, а потом просто забыл минус на запятую поправить.

[Snik11]

Imikle и angvelem, большое спасибо))) вы спасли меня)))

P.S. тему можно считать закрытой!