|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Посчитать миллисекунды
Здравствуйте. Столкнулся с такой проблемой. имеется код на JS, который отсчитывает миллисекунды с 1 января 1970 года и до момента нажатия на кнопку. Хотелось бы узнать, как такой же код написать на Delphi...
var time=new Date().getTime() ; // код на JS P.S. бьюсь уже 4й день, никак не могу понять... если можно, то с комментариями к коду... |
#2
|
||||
|
||||
Можно в таймере использовать Time.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Примерно тоже, что предложил lmikle, только ещё на секунды разобрать нужно.
Код:
var Ms : Int64; procedure Timer1Timer(Sender: TObject); begin Ms := MilliSecondsBetween(Now, EncodeDateTime(1970,1,1,0,0,0,0)); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 05.04.2012 в 00:36. |
#5
|
|||
|
|||
Цитата:
также выдает ошибку [Error] Unit1.pas(35): Not enough actual parameters ругается на Ms := MilliSecondsBetween(Now - EncodeDateTime(1970,1,1,0,0,0,0)); |
#6
|
||||
|
||||
У меня другое написано.
Ты неправильно вопрос поставил, объясни что хочешь получить. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 05.04.2012 в 00:42. |
#7
|
|||
|
|||
Ну, если тупо, то примерно так:
Код:
uses DateUtils; var ms : Int64; begin ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0)); Дает с точностью до милисекунды |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Snik11 (05.04.2012)
|
#8
|
|||
|
|||
Спасибо, сейчас попробую!!!
|
#9
|
|||
|
|||
Цитата:
выдает ошибку [Error] Unit1.pas(30): Not enough actual parameters ругается на ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0)); Последний раз редактировалось Snik11, 05.04.2012 в 00:36. |