powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как округлить TDateTime до секунд ?
6 сообщений из 6, страница 1 из 1
Как округлить TDateTime до секунд ?
    #32122353
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет.

Вопрос в subj.
...
Рейтинг: 0 / 0
Как округлить TDateTime до секунд ?
    #32122376
Фотография SmaLL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Разбиваешь его на часы, минуты и секунды, а потом опять собираешь, эт так на вскидку.
...
Рейтинг: 0 / 0
Как округлить TDateTime до секунд ?
    #32122397
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как-то неспортивно :-)
...
Рейтинг: 0 / 0
Как округлить TDateTime до секунд ?
    #32122463
Seryoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да зачем... это ж дабл, его дробную часть урезаешь так, как тебе нужно - и будет тебе округление вплоть до дней.
...
Рейтинг: 0 / 0
Как округлить TDateTime до секунд ?
    #32122587
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IMHO, не совсем так.

если смотреть на дробную часть TDateTime, то это время в следующем виде:
Код: plaintext
 1  / количество миллисекунд, прошедшее с начала суток

Таким образом, 1 секунда = 0.000011574..., и простым десятичным округлением тут ничего не добьешься.

Правильно должно быть вроде так:
Код: plaintext
1.
Round(ADateTime * SecsPerDay)/SecsPerDay
SecsPerDay =  24  *  60  *  60 
...
Рейтинг: 0 / 0
Как округлить TDateTime до секунд ?
    #32122610
Seryoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дык я ж не говорил - округлять %)
типа того я и имел ввиду, то есть мат. преобразование. только проверить не способен, спал позавчера.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как округлить TDateTime до секунд ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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