Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];

Вниз

Системное время и работа с ним   Найти похожие ветки 

 
Tort   (2006-07-23 19:18) [0]

Добрый вечер, МАСТЕРА!
Подскажите пожалуйста такую вот вещь. Пишу прогу, но для "формальности" решил добавить немного живности - считает, сколько времени она (прога) отработала.
Вопрос: как можно к времени, например: 12:45:00 прибавить отработанные 15 минут? В итоге должно получиться 13:00:00...

Вот такая вот задумка, но пока ничего неп олучилось :(


 
Anatoly Podgoretsky ©   (2006-07-23 19:26) [1]

В сутках 24*60 минут. Дальше голая математика.


 
Desdechado ©   (2006-07-23 19:30) [2]

Главное - не перепутать понятие длины интервала времени и отметки времени на оси.


 
Tort   (2006-07-23 19:32) [3]

Анатолий спасибо за ответ! Я не могу понять только одного.
С помощью TimeToStr(now) я получаю время ПК. Проходит ещё 15 минут например и в эту строчку (Label) прибавляется эти 15 минут.
Прошу помочь мне хотябы маленьким примером. Я начинающий и изучаю работу с таймером.


 
Desdechado ©   (2006-07-23 19:37) [4]

> в эту строчку (Label) прибавляется
Еще раз вызови TimeToStr


 
Tort   (2006-07-23 19:40) [5]

То и дело вызывать TimeToStr.....
Вы имеете в виду каждую секунду вести такую обработку?
Тогда как я понимаю нужнео два таймера, один на старте получает текущее время, а второй считает и прибавляет? Правильно ли я излагаю мысли?


 
Anatoly Podgoretsky ©   (2006-07-23 19:40) [6]

Примером чего, как разделить 1 на 24*60 и затем умножить на 15 и прибавить это к начальной дате?
T := T + 1/24/60*15


 
Anatoly Podgoretsky ©   (2006-07-23 19:41) [7]

Tort   (23.07.06 19:40) [5]
Может и правильно выражаешь, но не понятно.


 
Tort   (2006-07-23 19:45) [8]

Примером чего, как разделить 1 на 24*60 и затем умножить на 15 и прибавить это к начальной дате?
T := T + 1/24/60*15


Ну типа того. Вы почти угадали мои мысли :)

Спасибо! Сейчас покопаюсь в коде.


 
Desdechado ©   (2006-07-23 19:46) [9]

> То и дело вызывать TimeToStr
Раз в 15 мин.

> каждую секунду вести такую обработку
Настроить интервал срабатывания на 15 мин. Или запомнить в переменную текущее время, а раз в секунду (например), сравнивать сохраненное с новым на предмет 15 мин разницы. Естественно, в виде TDateTime, а не строки.


 
KilkennyCat ©   (2006-07-23 19:49) [10]

А еще есть такая функция, как ГетТикКоунт. Вызвав ее в начале работы один раз, в дальнейшем легко узнать, сколько программа проработала. в миллисекундах.

GetTickCount


 
Tort   (2006-07-23 19:50) [11]

ВСЕМ ОГРОМНОЕ СПАСИБО ЗА СОВЕТЫ И ПОМОЩЬ !!!!


 
Anatoly Podgoretsky ©   (2006-07-23 19:51) [12]

KilkennyCat ©   (23.07.06 19:49) [10]
А если вызвать GetPerformaceCounter то можно узнать и в пикосекундах


 
KilkennyCat ©   (2006-07-23 19:58) [13]

> [12] Anatoly Podgoretsky ©   (23.07.06 19:51)


Полезная вещь!


 
Belorus ©   (2006-07-23 20:17) [14]

RTFM по RDTSC


 
Anatoly Podgoretsky ©   (2006-07-23 20:31) [15]

Belorus ©   (23.07.06 20:17) [14]
Это не требуется, речь о подобном может пойти только в критических приложениях, GetPerformaceCounter выдает теже тики, только минимальная величина поменьше.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.052 c
4-1145360716
Yojik
2006-04-18 15:45
2006.08.13
как запретить клавишу Win?


11-1129478746
fellix
2005-10-16 20:05
2006.08.13
DoubleBuffered + XP bugs


15-1152607951
Некто
2006-07-11 12:52
2006.08.13
Беседовал тут с представительницей


15-1152612671
Kerk
2006-07-11 14:11
2006.08.13
Разработка чего-нибудь


8-1139843648
jakata
2006-02-13 18:14
2006.08.13
Освобождение интерфейса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский