Время - сколько осталось

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
SyncM
Новичок
Новичок
Аватара пользователя
 
Сообщения: 32
Зарегистрирован: 04.02.2007 (Вс) 15:48

Время - сколько осталось

Сообщение SyncM » 24.04.2007 (Вт) 20:33

Добрый день
вопрос простой казалось бы
о я запутался в алгоритмах собственых уже )
если кто знает, поделитесь кодом
Каким образом высчитать сколько времени осталось до заданного времени, чтобы суметь сделать отчёт назад.
Самым тупым образом что мне удалось сделать, это создать иной алгоритм, что начинает отчитывать сам время до исходного.
Повторюсь
Алгоритм который высчитывает "расстояние временное" между двумя заданными времинами в пределах 24 часов.
Пример - сейчас 12:32:07, а я задаю время к примеру 07:30:00
сколько точно секунд, минут и часов осталось до этого заданного времени исходя из "NOW"
Спасибо большое )

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 24.04.2007 (Вт) 20:51

Оператор минус. d2-d1.
Если d1>d2, то результат вычесть из 24 часов
:roll:
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 24.04.2007 (Вт) 22:50

DateDiff
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 24.04.2007 (Вт) 23:02

DateDiff придётся вызвать в режиме "s" и потом делать TimeSerial, в то время как оператор минус вернёт сразу время...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 24.04.2007 (Вт) 23:16

Я так понял ему нужно:
Осталось:
-- Часов 40
-- Минут 648
-- Секунд 359154
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 24.04.2007 (Вт) 23:20

Чтобы каждая секция содержала в себе предыдущую, немного уточняя её? Не могу представить, когда это было бы нужно...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 25.04.2007 (Ср) 0:07

Я когда-то куда-то делал именно такое. А сейчас даже вспомнить не могу.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 25.04.2007 (Ср) 7:02

В кирпичах есть два варианта.
Lasciate ogni speranza, voi ch'entrate.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 25.04.2007 (Ср) 8:35

Минус, в отличие от DateDiff, некорректно работает с отрицательными датами (ранее 30.12.1899).
Изображение

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 25.04.2007 (Ср) 11:01

А у нас только время...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 26.04.2007 (Чт) 9:27

Ну а чем так не устраивает:

Код: Выделить всё
Debug.Print "До Нового Года осталось: " & Format$(DateSerial(Year(Date)+1,1,1) - Now,"y дней h:nn:ss")
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

kuhtiov
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 03.08.2006 (Чт) 5:31

Сообщение kuhtiov » 04.05.2007 (Пт) 14:41

Мозгг!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 83

    TopList