ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вычитание даты-времени и сравнение с миллисекундами
20 сообщений из 20, страница 1 из 1
Вычитание даты-времени и сравнение с миллисекундами
    #40061147
verter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
verter
Участник
Имеем 2-е переменные, содержащие в себе дату-время и переменную для хранения разности этих времён.

Код: pascal
1.
2.
3.
4.
5.
t1 : TDateTime;
t2: TDateTime
delta: Double;

delta := t2 - t1;


Какие единицы после вычитания будут храниться в delta?

Там будет некое вещественное число, но что оно означает?

Мне нужно из него получить миллисекунды, как это можно сделать?

Заранее благодарен знатокам за ответ!
...
Рейтинг: 0 / 0
09.04.2021, 18:39
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061148
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
09.04.2021, 18:43
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061151
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
verter
Там будет некое вещественное число, но что оно означает?
Разницу в днях между двумя датами.
verter
Мне нужно из него получить миллисекунды, как это можно сделать?
Умножить на количество миллисекунд в дне (константа MSecsPerDay) и округлить до целого
...
Рейтинг: 0 / 0
09.04.2021, 18:48
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061152
verter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
verter
Участник
Мимопроходящий

function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;


Спасибо за ответ. Но у меня проект в очень старом Delphi 5. Там нет ещё такой функции.
...
Рейтинг: 0 / 0
09.04.2021, 18:49
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061153
verter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
verter
Участник
_Vasilisk_
verter
Там будет некое вещественное число, но что оно означает?
Разницу в днях между двумя датами.
verter
Мне нужно из него получить миллисекунды, как это можно сделать?
Умножить на количество миллисекунд в дне (константа MSecsPerDay) и округлить до целого


Большое спасибо! Мдааа, можно было и самому догадаться :)
...
Рейтинг: 0 / 0
09.04.2021, 18:50
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061155
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
только не округлить, а обрезать
...
Рейтинг: 0 / 0
09.04.2021, 18:51
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061157
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Мимопроходящий
только не округлить, а обрезать
Зависит от задачи. Я сам всегда округляю
...
Рейтинг: 0 / 0
09.04.2021, 18:56
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061159
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
_Vasilisk_
Зависит от задачи . Я сам всегда округляю

Взаимоисключающие параграфы.
...
Рейтинг: 0 / 0
09.04.2021, 19:05
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061163
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
rgreat
Взаимоисключающие параграфы.
Это я о том, что мне задачи где нужно было делать Trunc не попадались
...
Рейтинг: 0 / 0
09.04.2021, 19:10
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061165
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
_Vasilisk_,

Странно.

Ну с миллисекнудами, ладно - хрен с ними. Они не часто кому сильно важны, А что насчет округления, например, часов или суток?
...
Рейтинг: 0 / 0
09.04.2021, 19:13
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061171
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
rgreat
А что насчет округления, например, часов или суток?
Самые крупные единицы, с которыми я работал были секунды
...
Рейтинг: 0 / 0
09.04.2021, 19:25
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061198
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
_Vasilisk_
Зависит от задачи. Я сам всегда округляю

Главное, чем округлять. Дефолтное округление в делфи может принести некоторым сюрпризы.
...
Рейтинг: 0 / 0
09.04.2021, 20:14
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061229
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
JayDi
Дефолтное округление в делфи может принести некоторым сюрпризы.
Пока ты не работаешь с финансами - это не так важно
...
Рейтинг: 0 / 0
09.04.2021, 22:10
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061234
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
Мимопроходящий
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;
Тогда уже нужно дополнительно вернуть ее в нормальный вид, чтобы для ANow<AThen результат был отрицательный.
...
Рейтинг: 0 / 0
09.04.2021, 22:23
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061265
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Нафиг надо этот MilliSecondsBetween (да и все остальное подобное) использовать.
Мало ли что где потом поменяют.

TDateTime = обычный double, где единица = 1 день.
Вся математика крайне примитивна.
...
Рейтинг: 0 / 0
09.04.2021, 23:37
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061270
Фотография Dmitry Arefiev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry Arefiev
Участник
rgreat
Мало ли что где потом поменяют.

Хм ??
...
Рейтинг: 0 / 0
09.04.2021, 23:47
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061291
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Софт для Марса придется писать, а там времяисчисление другое))
...
Рейтинг: 0 / 0
10.04.2021, 01:12
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061610
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
rgreat
Нафиг надо этот MilliSecondsBetween (да и все остальное подобное) использовать.
Мало ли что где потом поменяют.

TDateTime = обычный double, где единица = 1 день.
Вся математика крайне примитивна.

Вот это точно взаимоисколючающие параграфы. Вместо нормальных абстракций хреначить impl-specific код - так себе затея. Я думал, такие горе-умельцы уже давно получили линейкой по рукам, еще когда оказалось, что string[0] не хранит длину, и много позже, когда оказалось, что sizeof(char) <> 1 байт. Но нет, упорные грабленаступатели еще существуют
...
Рейтинг: 0 / 0
12.04.2021, 10:29
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061644
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
09.04.2021 22:23, Соколинский Борис пишет:
> Тогда уже нужно дополнительно вернуть ее в нормальный вид, чтобы для ANow<AThen результат был отрицательный.

хренушки.
у них там так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
begin
   if ANow < AThen then
     Result := AThen - ANow
   else
     Result := ANow - AThen;
end;



Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
12.04.2021, 11:52
| Ответить | Цитировать | Написать  
Вычитание даты-времени и сравнение с миллисекундами
    #40061658
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Fr0sT-Brutal
rgreat
Нафиг надо этот MilliSecondsBetween (да и все остальное подобное) использовать.
Мало ли что где потом поменяют.

TDateTime = обычный double, где единица = 1 день.
Вся математика крайне примитивна.

Вот это точно взаимоисколючающие параграфы. Вместо нормальных абстракций хреначить impl-specific код - так себе затея. Я думал, такие горе-умельцы уже давно получили линейкой по рукам, еще когда оказалось, что string[0] не хранит длину, и много позже, когда оказалось, что sizeof(char) <> 1 байт. Но нет, упорные грабленаступатели еще существуют
Да да. Давай и для integer делать c:=substract(a,b) вместо a-b.

Вдруг там тоже impl-specific...
...
Рейтинг: 0 / 0
12.04.2021, 12:07
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вычитание даты-времени и сравнение с миллисекундами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]