Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: tdatetime2 - tdatetime1 = days, time  (Прочитано 4752 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Jon killer
Гость
« : 16-11-2006 21:29 » 

тема для Делфи 7
 Для глухих Чуваки, здорова всем )))
Вобшем такая проблемма:
помогите написать функцию, есть две переменные
d1,d2 : tdatetime

результат должен быть


сколько дней между этими переменными и остаточное время...  Скромно так...
Записан
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 18-11-2006 13:07 » 

RTFM
Цитата
Delphi syntax:

type TDateTime = type Double;

Цитата
сколько дней между этими переменными и остаточное время... 
А куда будем ночи девать, читать Help? Ага
Записан

С уважением, Oldy.
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #2 : 20-11-2006 10:21 » 

Oldy, да ладно, там не так уж и просто всё Улыбаюсь задача стоит остаточное время вывести. разница между d1 и d2 по модулю даст разницу, но опять таки в формате TDateTime. эту разницу потом ещё надо будет разкодировать (DecodeDateTime, если не ошибаюсь) и вычислив по годам, месяцам и дням количество дней, по дробной части вычислить время. другое дело, что в семёрке появились могучие функции, типа

Код:
function DaysBetween(const ANow, AThen: TDateTime): Integer;
, которые большую часть рутинной рабты берут на себя.
Записан

Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines