Проблемма работы с функциями времени!!!

[Alexey-VB]

Суть проблеммы такова.
В моей программе есть цикл проверки по времени, тоесть я проверяю 8 раз в секунду не изменился ли текущий час. Если изменился, то идет какая либо функция далее.

Например: If Hour(Time) = 8 then Abcd = 100

Все бы ничего, но мои системные часы из компютера, постоянно сбиваются на час-два. Вероятно это из-за этой функции.

Как избежать сбоев системных часов? Что в функции не так?

[Alexey-VB]

Да это и ежу понятно.
Врпрс был почему системные часы компьютера дают сбой из-за этой функции???

[RayShade]

Сбоев системных часов компьютера можно избежать, поменяю батарейку CMOS.

[Alexey-VB]

Очень полезно.
Я ее менял уже. Дело не в батарейке, а в функции VB.
ХЕЛП!!!

[uhm]

Если ты спрашиваешь: "Что в функции не так?" - не пришло ли тебе в голову, что хорошо бы и код функции приложить, м?

[Alexey-VB]

Ну вы даете
Я же написал,
Цикл проверяет текущий час 8 раз в секунду. Проверяет вот этой строчкой: If Hour(Time) = 8 then .......
При этом идет сбой системного времени. (ни сразу конечно, а в течении суток 2-3 раза). Сбой заключается в том, что системное время может вернуться на час назад.

[Konst_One]

в то, что ты написал верится с трудом.
проверь, сбиваются ли часы в ОС в течении дня, если твою программу вообще не запускать.

[lister]

Например: If Hour(Time) = 8 then Abcd = 100
...
Вероятно это из-за этой функции.
...

Сбой из-за Hour()? Маловероятно

[Alexey-VB]

Если не запускать, то несбиваются.

Я даже пытался сделать проверку вот так: If Timer = 28800 Then .....
При такой функции, часы начинают отставать на 15-20 минут за день.

Если кто не знает ответ на эту проблемму, то писать - "С трудом верится" НИКЧЕМУ.

[Konst_One]

просто такой проблемы не замечали у себя
а таймер у тебя как часто отрабатывает?
при работе проги какова загрузка проца?

может DoEvents в цикле поможет...

[uhm]

Не хочешь показывать текст функции - не надо. Но если у тебя в соседней строчке Time случайно окажется слева от знака равенства, ты сам себе злобный буратино.

[lister]

В моей программе есть цикл проверки по времени...

Что за цикл?

[Alexey-VB]

Такого что Hout(Time) = A, а затем B = Hour(Time) у меня нет.

А цикл повторяется через каждые 10 милисикунд.

DoEvents у меня стоит. И проблнмма тоже

[Alexey-VB]

If Hour(Time) = 8 Then
SHORTMESSAGEEMAIL
DoEvents
End If

[Konst_One]

А цикл повторяется через каждые 10 милисикунд.

Это зря. Не нужно такой интервал ставить.

[lister]

Что-то я не въеду. Чел использует цикл или все-таки таймер?

[Alexey-VB]

Использую бесконечный цикл с интервалом в 10 милисекунд.

[ANDLL]

Alexey-VB
Приведи как ВЕСЬ код

[lister]

Использую бесконечный цикл с интервалом в 10 милисекунд.

Это как это?
С чего ты взял, что там интервал именно 10 мсек?

[Eduard]

ну вот можешь паасмареть мою прогу Будильник, там время выставляетcя када будить, есессено и проверка должна все время идти - тоже также через Hour/Minutes; слушай судками работает - не сбивается сист.время!!

VB.Project >> http://www.zone.ee/vbprogs/files/progs/ ... _clock.zip (150 kb)

[Nicky]

Date Statement


Sets the current system date.

Syntax

Date = date

For systems running Microsoft Windows 95, the required date specification must be a date from January 1, 1980 through December 31, 2099. For systems running Microsoft Windows NT, date must be a date from January 1, 1980 through December 31, 2079.

Time Statement


Sets the system time.

Syntax

Time = time

The required time argument is any numeric expression, string expression, or any combination, that can represent a time.

Remarks

If time is a string, Time attempts to convert it to a time using the time separators you specified for your system. If it can't be converted to a valid time, an error occurs.