Отсчет времени(СРОЧНО!)

[MS]

Подскажите, как посчитать оставшееся время до введеного, если часы, минуты и секунды вводим как отдельные переменные.
Заранее спасибо.

[Алексей++]

в API есть функция
void GetLocalTime(
  LPSYSTEMTIME lpSystemTime
);

она подойдёт для данной задачи, я полагаю )

[MS]

А нельзя коддинг хотя бы примерно.

[Finch]

MS, Сведи все в одну переменную. Примерно так
Твоя_Переменная = Час*3600+Минута*60+Секунды;
Затем отнимай эти переменные и обратно разворачивай
Секунды = Твоя_переменная mod 60;
Твоя_переменная = Твоя_переменная div 60;
Минуты = Твоя_переменная mod 60;
Твоя_переменная = Твоя_переменная div 60
Часы = Твоя_переменная

Данные выводы верны, если мы ведем счет в пределах одного дня. Как сделать с учетом дней, месяцев и годов подумай сам.

[zubr]

Просто отнимаешь от одного времени другое (переменные типа TDateTime - это вещественные переменные). Если надо преобразовать в TDateTime из отдельных часов, минут, секунд, пользуемся функцией EncodeDateTime. Затем, чтобы определить сколько осталось часов, минут, секунд, полученную разницу преобразовываем с помощью функции DecodeDateTime. Есть еще функция CompareDateTime, позволяющая сравнивать время, но она только показывает больше, меньше, равно.
З.Ы. Все вышеназванные функции находятся в модуле DateUtils (для Delphi6-7).

[MS]

Всем большое спасибо, очень помогли.